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ABSTRACT 

Under  the  sponsorship  of  the  Defense  Advanced  Research 
Projects  Agency  (DARPA) ,  a  conical  lens  for  a  5"/54  ramjet 
propelled,  optically  guided  projectile  was  investigated. 
The  resulting  conical  lens  for  the  gun-launched  missile 
(GLM)  will  focus  parallel  incident  light  through  the  lens 
to  a  design  focal  point.   A  conical  lens  was  designed  using 
an  algorithm  written  for  the  HP-9845T  desktop  minicomputer. 
The  examples  illustrate  the  automated  design  procedure, 
selection  of  possible  lenses  and  final  lens  design. 
Recommendations  for  further  research  are  discussed. 
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I.   INTRODUCTION 

A.   THE  PROBLEM 

Since  World  War  II  the  presence  of  two  conflicting 
requirements  in  missile  sensor  design  has  forced  unsatis- 
factory compromises  to  be  made  in  either  the  optical  system, 
airframe  or  both.   Examples  of  this  are  the  Sidewinder  air 
to  air  (AAM)  and  Chapparal  surface  to  air  (SAM)  missile. 
The  operational  requirements  are  simple:   from  a  "long" 
range,  fly  fast  enough  to  pursue  and  overtake  an  adversary, 
destroy  or  disable  the  adversary  and  perform  all  of  the 
guidance  and  tracking  functions  without  assistance  from  the 
firing  platform.   The  guidance  decisions  in  the  Sidewinder 
AAM  are  made  by  tracking  the  thermal  radiation  emitted  from 
enemy  aircraft.   The  radiation  enters  the  missile  optical 
system  via  a  hemispherical  dome  on  the  nose  of  the  missile. 

Long  range  and  high  speed  require  sleek,  low-drag  air- 
frames and  efficient,  high  power  engines.   In  the  visible  or 
infrared,  accurate  measurement  of  the  line  of  sight  (LOS) 
from  the  missile  to  the  target  requires  optical  lenses  which 
routinely  come  in  the  shape  of  spheres.   Spheres  and  similar 
blunt  shapes  have  very  high  drag  coefficients  compared  to 
conical  or  ogive  nose  shapes.   Thus  the  Sidewinder  and 
Chapparal  missiles  contain  excellent  optics,  yet  suffer  in 
range  and  operational  capability. 
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The  targets  expected  to  be  encountered  in  surface  AAW  are 
the  Soviet  anti-ship  missiles  (ASM) .   These  weapons  have 
evolved  from  simple  straight  line  weapons  to  those  with  large 
warheads,  multiple  seekers  and  flight  profiles  which  sometimes 
require  operational  tracking  systems  to  perform  beyond  their 
design  limits. 

The  fleet  AAW  battle  doctrine  of  today  is  based  on  a 
"defense  in  depth"  concept.   According  to  this  concept  the 
E-2C/F-14/Phoenix  combat  system  will  be  the  first  unit  to 
engage  enemy  ASM,  hopefully  at  maximum  range.   The  next  units 
able  to  engage  the  ASM  at  extended  range,  assuming  the  target 
is  above  the  radar  horizon,  are  the  units  employing  the  SM-2 
(ER)  and  SM-1  CER)  missiles.   While  within  the  SM-2/1  (ER) 
engagement  envelope,  the  SM-1  (MR)  missile  enters  the  engage- 
ment at  medium  range.   Finally,  once  the  ASM  has  penetrated 
this  missile  cover,  the  defense  in  depth  concept  reduces  to 
a  "defend  each  unit,  especially  the  carrier"  concept.   In 
this  region  the  5"/5  4  gun  system,  Basic  Point  Defense  System, 
NATO  Sea  Sparrow  and  Phalanx  system  are  brought  to  bear. 

The  battle  group  could  conceivably  consist  of  an  aircraft 
carrier,  three  Aegis  cruisers,  two  SM-1  (ER)  cruisers,  two 
guided  missile  destroyers,  two  guided  missile  frigates,  two 
fast  frigates  and  three  destroyers;  or  a  total  of  fifteen 
units  not  including  logistics  ships.   The  capital  assets  for 
the  ships,  aircraft  and  equipment  are  in  the  tens  of  billions 
of  dollars  and  perhaps  10,000  men.   These  assets  demand 
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protection.   However,  with  three  exceptions  the  AAW  combat 
systems  presently  in  the  fleet,  or  near  operational  status 
are  not  designed  to  engage  a  low-flying  ASM  in  a  timely 
manner.   The  exceptions  are  the  Aegis  cruiser,  NATO  Sea 
Sparrow  system  and  Phalanx  system;  even  with  these  three 
systems,  there  exists  a  gap  in  the  1-10  nautical  mile  range 
in  the  defense  in  depth  concept. 

A  possible  attack  scenario  is  with  the  battle  group 
steaming  in  an  AAW  formation  when  the  Soviet  commander 
launches  a  series  of  three  saturation  raids  of  ASM's  against 
the  battle  group.   The  second  and  third  raid  are  launched  to 
arrive  at  the  moment  when  the  U.S.  forces  are  totally  engaged 
with  the  previous  raid.   Hence,  the  second  and  third  raid 
will  substantially  penetrate  the  battle  group,  with  perhaps 
the  carrier  and  several  of  the  major  escorts  at  least  mission 
disabled.   The  Soviet  commander  can  now  operate  at  will. 

Two  factors  are  critical  to  the  battle  group  commander: 
munition  assets  and  engagement  time.   Compared  to  the  number 
of  threats  in  a  saturation  attack,  the  battle  group's  missile 
assets  are  limited  in  number  with  limited  reload  capability. 
The  battle  group  commander's  gun  ammunition  assets  are  large, 
compared  to  the  available  missiles.   However,  with  the 
current  gun  systems  the  engagement  time  per  round  is  extreme- 
ly long,  on  the  order  of  60  seconds.   If  the  gun  engagement 
time  could  be  reduced  by  a  factor  of  2,  then  each  gun  barrel 
could  be  twice  as  effective. 
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Unguided,  ballastic  projectiles  can  be  replaced  by  gun 
launched  missiles  (GLM) .   The  GLM  flying  at  Mach  3.0  can 
intercept  in  15  seconds  an  inbound  ASM  flying  at  Mach  1.0  at 
a  range  of  20,000  yards.   This  engagement  time  and  range  are 
superior  to  any  close-in  system  presently  in  the  fleet. 
Therefore  the  GLM  enhances  the  battle  group's  capability  to 
survive  a  raid  which  saturates  the  group's  long  range  combat 
systems.   The  GLM  is  not  designed  to  replace  any  existing 
systems  but  complement  them  by  providing  the  ability  to 
strike  out  and  defeat  the  enemy  in  the  region  from  1  to  10 
nautical  miles.   In  this  range  interval,  defense  capability 
presently  exists;  however,  the  magazine  capacity  is  limited. 
The  GLM  will  accomplish  the  ASMD  task  by  marrying  existing 
ramjet  technology  and  a  new  generation  of  missile  optics  to 
provide  a  missile  which  is  able  to  defeat  the  Soviet  ASM  at 
a  range  far  greater  than  is  realizable  with  today's  gun 
systems. 

This  thesis  involved  the  writing  of  and  the  application 
of  computer  algorithms  to  accomplish  the  following: 

1)  Compute  and  trace  monochromatic  light  rays  through 
a  conical  lens. 

2)  Compute  a  refracting  surface  to  focus  monochromatic 
light  rays  to  a  point  on  the  GLM  axis. 

3)  Apply  an  optimization  computer  algorithm  to  the  lens 
design  problem. 

4)  Apply  gradient  index  optics  (GRIN)  to  the  lens  design 
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B.   ASSUMPTIONS  AND  SIGN  CONVENTION 

The  computer  algorithms  are  written  based  on  Snell's 
law  without  approximations.   All  rays  are  assumed  to  be 
transmitted  without  loss  of  energy  in  the  medium.   When 
total  internal  reflection  occurs,  the  ray  is  assumed  to 
stop  at  the  point  of  reflection.   The  algorithms  are 
written  to  provide  a  basic  understanding  of  the  optics 
involved.   Flexible  computer  programs  have  been  written 
with  the  capability  of  adding  ray  tracing  ability  by 
adding  subroutines. 

The  medium  ahead  of  the  GLM  is  assumed  to  be  air. 
Flying  at  Mach  3.0  the  GLM  will  produce  shock  waves  which 
will  act  like  a  refracting  surface  [1].   This  thesis  assumes 
the  air  to  be  homogenous,  isotropic,  linear,  time  indepen- 
dent (HILT)  and  free  of  shock  waves  in  order  to  investigate 
the  fundamental  problem  of  designing  a  conical  lens.   The 
lens  medium  and  the  medium  after  the  lens  are  assumed  to 
be  composed  of  an  HILT  material  unless  otherwise  noted. 

The  sign  convention  used  is  a  right-handed  system  with 
distances  positive  to  the  right  and  up  as  seen  by  the  reader, 
All  angles  are  positive  for  a  counterclockwise  rotation  from 
the  horizontal  axis  to  the  point  in  question.   When  used  in 
derivation  of  geometrical  relationships,  the  absolute  values 
of  angles  are  used  in  all  trigonometric  expressions. 

All  linear  dimensions  are  inches  unless  otherwise  noted. 
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II.   FIRST  SURFACE 

A  spiked  nose  used  as  a  ramjet  inlet  optimizes  the 
aerodynamic  qualities  yet  degrades  the  optical  qualities. 
Figure  1  [2]  illustrates  the  inability  in  the  past  of  a 
spiked  nose  to  focus  light  rays  while  a  sperical  lens 
accomplishes  an  excellent  focus.   Thus,  optimizing  the 
aerodynamic  qualities  degrades  the  optical  qualities  and 
vice  versa. 

Replacing  the  solid  propellant  rocket  motor  now  used 
on  most  missiles  with  a  ramjet  engine  further  complicates 
the  compromise  between  optical  quality  and  aerodynamic 
efficiency.   Replacing  the  rocket  with  an  air-breathing 
ramjet  is  motivated  by  fuel  economy  and  the  ability  to 
throttle  the  ramjet.   The  ability  to  throttle  allows  the 
missile  to  fly  a  thrust  equal  drag  trajectory.   This  type 
of  trajectory  results  in  a  vacuum-like  trajectory  with 
less  sensitivity  to  wind  and  a  marked  increase  in  maximum 
range  [3] . 

Ramjets  operate  with  inlets  configured  for  cruise 
performance  at  the  design  Mach  number.   The  configuration 
of  the  inlet  shown  in  figure  2  is  based  on  a  design  Mach 
number  of  3.0  [3J.   The  spike  of  the  inlet  is  a  combination 
of  a  cone  and  curved  geometry  to  provide  high  pressure 
recovery  during  supersonic  operation  [3]. 
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The  inlet  spike  geometry  is  a  complex  surface  which 
further  complicates  the  task  of  the  lens  system  which  is 
to  form  an  image  of  the  target  on  the  GLM  axis.   The  inlet 
is  a  fluid  mechanical  device,  called  a  diffuser,  used  to 
decelerate  the  air  flow  to  a  subsonic  Mach  number.   The 
diffuser  converts  the  kinetic  energy  of  the  flow  into  an 
increase  in  pressure  of  the  air,  known  as  pressure  recovery, 
and  decelerates  the  flow  to  a  subsonic  Mach  number.   Diffusers 
are  required  because  the  combustion  of  fuel  is  more  efficient 
at  high  pressure  and  low  velocity. 

A  desirable  inlet  is  one  which  decelerates  the  flow  at 
constant  entropy,  produces  no  shocks,  creates  zero  drag 
exclusive  of  ram  drag,  and  is  insensitive  to  angle  of  attack. 
Inlets  which  operate  off  the  design  Mach  number  may  have 
additive  drag.   Additive  drag  is  the  sum  of  the  forces 
acting  along  the  streamline  A-B  shown  in  figure  3  [4].   The 
pressure  multiplied  by  the  area  of  the  streamtube  A-B  is  a 
force  which  is  in  a  direction  opposite  to  that  of  flight  and 
therefore  is  drag.   Examples  of  other  types  of  supersonic 
diffusers  are  shown  in  figures  4  and  5  [4]. 

The  marriage  of  missile  optics  and  a  controllable  engine 
promises  a  potent  weapon.   Preliminary  feasibility  studies 
have  shown  that  ramjet  engines,  control  systems,  guidance 
laws  and  warhead  designs  can  be  integrated  into  a  5"/54 
projectile  [2,3,5,6].   The  optical  system  has  been  identified 
as  a  major  subsystem  which  requires  additional  investigation. 
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Specifically,  the  lens,  which  is  required  to  focus  the  image 
of  the  target,  is  the  stumbling  block,  to  an  efficient  ramjet 
design.   A  blunt  nose  cannot  be  used  because  of  poor  pressure 
recovery  and  large  additive  drag.   Therefore,  some  type  of 
an  inlet  using  a  spike  must  be  used.   The  spike  must  also  be 
a  lens  capable  of  forming  an  image  on  the  GLM  axis.   The  lens 
must  have  a  large  enough  aperture  and  field  of  view  to  provide 
the  GLM  with  sufficient  data  to  maintain  and  accurately 
measure  the  line  of  sight. 

This  thesis  is  based  on  an  inlet  design  by  Brown  [3] 
using  data  from  Faro  [7]  shown  in  figure  2.   The  inlet  is  a 
15   conical  tip,  axisymmetric,  isen tropic  spike  for  a  design 
Mach  number  of  3.0.   The  spike  studied  in  the  thesis  is  a 
cone  having  approximately  the  same  length-to-diameter  ratio 
as  the  inlet  in  figure  2  [3].   Hence,  the  first  optical 
surface  used  for  ray  tracing  is  a  cone  with  a  21   half -angle. 


31 


III.   SECOND  SURFACE  GENERATION;   DIRECT  SOLUTION 

The  direct  solution  to  designing  a  conical  lens  consists 
of  solving  Snell's  Law  at  a  point  T  shown  in  figures  6  and  7 
along  the  refracted  ray  within  the  lens.   Point  T  is  located 
below  the  line  QP  in  figure  6 .   When  T  is  in  this  position 
relative  to  QP ,  the  geometry  is  referred  to  as  the  low  region. 
When  T  is  in  the  position  shown  in  figure  7 ,  the  geometry  is 
referred  to  as  the  high  region.   When  T  is  on  the  line  QP , 
i.e.   pi  =  3,   the  low  region  geometry  is  assumed. 

The  following  discussion  is  the  derivation  of  expressions 
for   p2,   the  angle  with  respect  to  the   GLM  axis  of  the  ray 
refracted  at  T  which  passes  through  the  design  focal  point 
P,  and  ct2/  the  angle  which  the  tangent  line  at  T  makes  with 
respect  to  the  GLM  axis.   The  derivation  will  only  discuss  the 
low  region,  because  the  procedure  for  the  high  region  is 
identical  and  only  the  results  for  the  high  region  will  be 
given.   The  magnitude  of  a  line  segment  is  shown  by  stating 
the  endpoints  of  the  line  segment  in  uppercase  letters  or  by 
a  single  lower  case  letter. 

Let  QP=£,   QT=s   and  OP=f;  then  according  to  the  law 
of  sines   sina/£  =  ( sin  (  it- [a+ |  3  |  ])) /f.   This  relation 
simplifies  to 

n  f  sina  (1) 

sin(a+| 3  I) 
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Next,  note  that 

RT  =  s  sin(  |  Pi  |  -  |  3|  J  (2) 

and 

RT  =  (PQ-QR) tan( |3|-|p2 |)  (3) 

Now   PQ-QR=£-s  cos ( | pi | - | 3i | ) .   Substituting  this  into 

equation  (3)  and  solving  for  tan ( | 3 |  —  | p 2 | )   yields 

s  sin  ( I p 1  I  -  I  3  I ) 

-  s  cos( I  pi  1-1 31 ) 


tan(|3|-|P2|)  =   (niHS '       (4) 


sinCa+|3|)  ) 

Consequently  the  formula  for   |  p  2 1   becomes   |3|  -  arctan{}. 
Using  equation  (4),   pi,   the  angle  with  respect  to  the  GLM 
axis  of  the  ray  refracted  at  Q,  apply  Snell's  Law  at  T. 
Thus,  referring  to  figure  6 

n2 
sin9   =   —  sin8_  =  n23sin9I  (5) 

where   9_  =   | NORM | - | p 2 |   and   9_  =   | NORM | - | Pi  I  - 

Substituting  these  expressions  into  equation  (5)  yields  a 
relation  involving  the  sine  of  two  angles.  Expanding  the 
sine  expressions  and  solving  for   tan | NORM |  yields 


tan  NORM 


sin  |P2  I  -  n23sm  |  p  1 
cos  I p2 I  -  n.^cos I  pi 


(6) 


and   I  NORM  I  =   arctan{  }.   Equation  (6)  must  be  greater  than 
or  equal  to  zero  for  the  expression  to  be  valid.   Then 

a2  =  j   -  I  NORM  I  (7) 
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The  result  of  the  derivation  for  the  high  region  yields 


taaClpil-ISI)   =    S  sinC  [  ©  [-  |  pa  |  > 


f  sina 


sin(a+|S|) 


-  s  cos ( I 3 I  -  I  Pi  I ) 


n~-  sin  |  p  i  I  -  sin  |  p  2.  | 

tan  I  NORM  I   =    -^ (9) 

n    cos  J  pi  I  -  cos  I P2 I 


and  solving  for   a2   gives 

H 
2 


a 2  =   5-  -  iNORMl  CIO) 


Therefore,   a2   is  a  complicated  relationship  involving 
incident  ray  position,  denoted  by   $,   cone  half  angle   a, 
design  focal  point  P,  the  refractive  indices   n  ,  n~ ,  and  n_ 
and  position   s  along  the  ray  within  the  lens.   In  order  for 
a  systematic  study  to  be  conducted,  the  parameters   a,   f, 
n,,  n2   and  n^   are  assigned  specific  values.   The  parameter 
3   is  determined  by  the  position  of  point  Q  on  the  first 
surface.   The  angle  of   pi,   is  determined  by  the  incident 
ray  angle  with  respect  to  the  first  surface,   n, ,  and  n2. 
Therefore,  with  the  values  for  the  parameters,  either  fixed 
or  calculated,  a  design  chart  relating  012  with  the  position 
along  the  ray  in  the  lens   s   shown  in  figure  8  can  be 
generated.   The  numbered  curves  correspond  to  numbered  rays 
entering  the  lens.   The  rays  are  numbered  consecutively 
beginning  with  the  one  nearest  the  GLM  axis. 
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The  actual  design  process  involves  selecting  a  starting 

point,   Tl,   on  a  given  ray  and  noting  the  magnitude  of   s, 

as  shown  in  figure  9.   With  that  value  of   s,,  enter  the 

design  chart  in  figure  8  and  read  the  value  of   a 2    from 

curve  number  1.   Returning  to  figure  9  extend  a  line  from  Tl 

using   a  2    until  that  line  intercepts  the  next  ray  at  T2 . 

Measure  the  value  of   s2   and  enter  figure  8  to  obtain  the 

value  of   a  2    from  curve  number  2.   Return  to  figure  9  and 
2 

extend  a  line  from  T2  to  intercept  the  next  ray,  etc.   This 
process  continues  until  all  of  the  rays  are  intercepted  or 
the  first  surface  is  intercepted.   Once  the  intercept  point 
T  and  the  angle  of  the  tangent  line   a 2   is  known,  the  ray 
can  be  refracted  at  T.   Equations  (4)  and  (7)  for  the  low 
region  and  equations  (8)  and  (10)  for  the  high  region 
accomplish  the  refraction.   The  result  of  each  refraction  by 
design  result  in  a  refracted  ray  through  the  focal  point  P 
as  shown  in  figure  10. 

The  design  procedure  does  not  produce  a  single  surface 
which  can  be  used  to  refract  light  through  the  focal  point. 
The  surface  designed  depends  on  which  ray  was  chosen  as  the 
initial  ray  and  the  value  of   s   along  that  ray  where  Tl 
is  positioned.   Thus,  a  small  family  of  surfaces  illustrated 
in  figure  11  can  easily  be  calculated  to  provide  a  choice  of 
lens  second  surfaces  to  the  optical  engineer. 

The  lens  designer  must  choose  from  the  family  of  second 
surfaces  generated  by  the  design  procedure.   In  order  for  a 
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consistent  set  of  decisions  to  be  made  a  set  of  design  crite- 
ria for  this  thesis  are: 

1)  that  the  lens  must  be  as  thin  as  possible. 

2)  that  the  lens  have  as  large  an  aperture  as  possible. 
The  aperture  is  defined  to  be  the  difference  in 
radius  between  the  maximum  and  minimum  radii  from 
the  GLM  axis  at  which  light  rays  enter  the  lens  and 
are  refracted  through  the  focal  point. 

3)  that  the  focal  length  to  diameter  ratio,  f/d,  is 
a  minimum  and  in  no  case  greater  than  4 . 

Using  the  stated  design  criteria,  surface  number  1  in 
figure  11  is  the  logical  choice  because  it  is  the  thinnest 
and  has   the  maximum  aperture  of  the  5  surfaces  provided. 
All  of  the  surfaces  have  the  same  f/d  ratio  of  2.73. 

Each  member  of  the  family  of  surfaces  is  generated  by 
using  straight  lines.   Since  a  real  surface  will  not  be  a 
series  of  flat  surfaces  but  a  smooth  continuous  surface  with 
no  discontinuities,  an  inherent  error  exists  in  the  design. 
The  error  can  be  reduced  substantially  by  using  a  large 
number  of  rays  to  provide  a  large  number  of  line  segments 
to  approximate  a  continuous  surface.   The  designer  must  now 
choose  the  number  of  rays  to  be  used,  repeat  the  design 
process  and  generate  the  design  chart  for  the  final  lens 
design  using,  for  example,  26  rays  in  figure  12.   Using 
figure  12,  the  designer  calculates  the  final  lens  design 
in  figure  13  beginning  with  the  starting  point  which  is  the 
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end  of  a  curve  number  1  in  figure  12.   Thus   Tl   is  near 
the  GLM  axis  and   a2  =  21  . 

A  ray  diagram  shown  in  figure  14  illustrates  the  paths 
of  the  light  rays  through  the  lens  generated  using  the 
design  chart  in  figure  12.   A  histogram  showing  the  distri- 
bution of  light  rays  on  the  image  plane  reveals  that  the 
light  rays  do  pass  through  one  design  focal  point  plus  or 
minus  an  half-increment  width.   The  width  of  an  increment 
is  defined  as  the  maximum  radius  of  the  GLM  divided  by  the 
desired  number  of  intervals.   For  example,  if  the  maximum 
radius  of  the  GLM  is  1.1  inch  and  100  intervals  from  the 
GLM  axis  to  a  radius  of  1.1  inch  then  the  increment  width 
is  0.011  inch.   In  order  to  position  an  interval  on  the 
origin,  an  increment  is  centered  on  the  origin.   The  effect 
of  this  operation  is  to  add  a  half-increment  at  the  maximum 
value  of  the  radius.   Therefore,  for  the  entire  GLM  a  total 
of  2  x  100  +  1  =  201   increments  are  used  to  generate  a 
histogram.   The  fact  that  all  of  the  rays  intersect  the 
focal  point  shows  the  calculations  are  correct  for  this 
particular  lens. 

An  automated  computer  algorithm,  CHART,  has  been  written 
to  construct  a  design  chart  and  calculate  a  family  of  sur- 
faces from  that  design  chart.   CHART  waits  until  the  operator 
chooses  a  particular  surface  from  the  presentation  and  the 
number  of  rays  desired  to  calculate  a  final  surface.   Next, 
CHART  will  compute  the  final  surface  and  present  it  to  the 
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operator.   The  operator  can  choose  to  stop  or  draw  a  ray 
diagram  to  show  the  effectiveness  of  the  design.   If  the  ray 
diagram  is  chosen  a  histogram  of  ray  distribution  on  the 
image  plane  is  presented  to  the  operator.   If  the  operator 
wants  to  design  a  lens  using  another  surface,  the  entire 
procedure  must  be  repeated. 

The  following  figures  are  a  sample  run  of  CHART  to  design 
a  lens.   Tables  containing  the  initial  parameter  values  and 
calculated  data  are  located  in  Appendix  A.   The  design  chart 
in  figure  16  was  generated  using  the  initial  parameter  infor- 
mation in  Table  A-II.   The  family  of  second  surfaces  in 
figures  18  and  19  were  calculated  using  the  end  of  each 
numbered  curve  in  figure  16  as  the  starting  point   Tl   for 
each  numbered  second  surface  in  figures  17  and  18.   The 
information  used  to  draw  figures  17  and  18  is  in  Table  A-III. 
The  rays  shown  in  figure  18  were  used  to  generate  the  design 
chart  and  family  of  second  surfaces  figures  17  and  18.   The 
maximum  length  of  a  ray  in  the  lens  is  defined  as  QA,  the 
distance  from  the  intercept  of  the  incident  ray  and  the 
first  surface  to  the  GLM  axis.   The  calculated  information 
used  to  draw  the  family  of  second  surfaces  in  figures  17  and 
18  is  found  in  Table  A-IV.   A  comparison  of  QA  and  the  value 
of   s   used  as  the  starting  point  Tl   for  each  family, 

s ,  .  is  found  in  Table  A-V. 

max 
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Surface  number  1  was  chosen  because  the  surface  satis- 
fied all  of  the.  design  criteria.   The  final  design  chart 
shown  in  figure  19  was  generated  using  26  rays.   The  number 
of  rays  actually  entered  into  the  computer  was  25 ,   CHART 
then  calculates  the  aperture  of  the  lens  using  the  chosen 
surface.   If  the  lower  limit  of  the  aperture  is  not  the  GLM 
axis ,  CHART  adds  one  ray  to  the  number  entered  to  use  as 
the  starting  ray.   This  method  insure  a  ray  will  be  drawn 
at  the  maximum  and  minimum  boundaries  of  the  aperture.   The 
calculated  data  used  to  generate  the  design  chart  in  figure 
19  is  listed  in  Table  A-VI . 

The  final  lens  design  shown  in  figure  2  0  consists  of  a 
surface  defined  by  26  points  rather  than  10  with  the  initial 
design.   The  coordinate  values  for  the  final  surface  are 
found  in  Table  A-VII  .   The  refinement  of  the  surface  obtained 
by  using  26  rays  is  illustrated  by  comparing  the  end  points 
of  the  surfaces  listed  in  Tables  A-VII  and  A-IV.   The  changes 
in  x,  y  are  (-0.009,  0.013)  inch.   The  change  in   s   is 
(-0.016)  inch.   Hence,  the  lens  designer  should  be  aware 
of  the  tendency  of  the  final  surface  to  move  towards  the 
first  surface,  possibly  resulting  in  the  design  surface 
intercepting  the  first  surface  prior  to  the  GLM  wall  at  the 
maximum  radius  from  the  axis.   This  effect  results  in  a 
decrease  in  aperture,  a  violation  of  the  design  criteria. 

The  final  design  surface  is  then  drawn  within  an  outline 
of  the  GLM  shown  in  figure  21  illustrating  the  symmetry  of 
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the  design  and  the  location  of  the  lens  within  the  missile. 
A  ray  diagram  using  the  final  lens  design  shown  in  figure 
22  with  the  distribution  of  the  rays  on  the  image  plane 
shown  in  figure  23.   The  coordinate  values  used  to  draw  the 
ray  diagram  in  figure  22  are  listed  in  Table  A-VIII. 
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IV.   RECOMMENDATIONS  FOR  FUTURE  WORK 

This  thesis  investigated  part  of  the  properties  of  a 
conical  lens.   Future  studies  should  investigate: 

a)  the  effect  of  skew  rays  on  the  image. 

b)  the  effect  of  total  internal  reflection  on  the  image 

c)  the  calculation  of  monochromatic  and  chromatic 
aberrations  for  the  conical  lens. 

d)  the  availability  and  applicability  of  materials  to 
use  for  a  lens. 

e)  the  effect  on  the  incident  rays  of  the  shock  wave 
in  the  air  ahead  of  the  GLM. 

f)  the  effect  on  the  image  of  an  object  not  on  the 
lens  axis. 

g)  the  effect  on  the  image  when  the  object  is  no 
longer  in  the  far  field  and  the  curvature  of  the 
ray  front  must  be  taken  into  account. 

h)   the  ability  of  a  conical  lens  to  focus  coherent 
and  incoherent  light. 
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V.   CONCLUSIONS 

The  completed  design  of  figure  22  indicates  that  a 
conical  lens  can  focus  incident  light  which  is  parallel 
to  the  GLM  axis.   The  conical  lens  design  is  compatible 
with  the  aerodynamic  requirements  of  high  pressure 
recovery  and  low  drag.   The  ability  to  provide  optical 
guidance  information  to  the  GLM  powered  by  an  integral 
rocket  ramjet  may  provide  the  battle  group  commander 
with  an  inexpensive  ASMD  weapon  for  shipboard  use. 
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APPENDIX  A 
CHART  SAMPLE  OUTPUT  AND  PROGRAM  LISTING 

This  appendix  contains  the  program  listing  for  CHART. 
The  subroutines  listed  in  Table  A-I  were  copied  or  derived 
from  the  HP-9845  utilities  library,  cassette  number  2, 
Ser.  No.  09845-10205,  program  REGPLT. 

Subroutines  DRIVER,  POLYNOMIAL  and  PLOT-CUBIC  are  not 
implemented  in  the  present  version  of  CHART  because  of  time 
constraints.   They  are  designed  to  be  used  to  fit  a  poly- 
nomial of  degree  3,  a  cubic,  between  four  points  to  estimate 
the  shape  of  the  second  surface.   The  requirement  to  fit  a 
curve  stems  from  the  fact  that  the  trajectory  of  a  ray  cannot 
be  calculated  if  the  ray  does  not  coincide  with  a  known  ray 
trajectory.   Hence,  two  options  are  open.   The  first  is  to 
calculate  an  infinite  number  of  points  on  the  second  surface 
which  is  not  practical.   The  second  option  is  to  estimate  the 
actual  shape  of  the  second  surface  with  an  analytic  expression, 
a  cubic  in  this  application.   The  error  of  the  estimate  can 
be  reduced  by  designing  a  second  surface  with  a  large  number 
of  points.   CHART  has  been  written  to  design  a  lens  with  a 
maximum  number  of  250  points. 

CHART,  as  implemented  on  the  HP-9  845T  is  a  slow  program. 
The  design  procedure  described  in  chapter  III  requires 
approximately  fifteen  minutes  for  an  experienced  operator. 
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Therefore,  if  the  initial  and  final  design  charts  used 
more  or  less  rays  then  the  computation  time  should  be 
scaled  accordingly. 
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TABLE  A-I 

SUBROUTINES  DERIVED  FROM  THE  HP-9  845B  UTILITIES  LIBRARY 

Name  Line  Number 

Plot  3710 

Laxes  5280 

Driver  13910 

Polynomial  14400 

Plot-Cubic  14910 

Min  210  40 

Max  2116  0 
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TABLE  A-II 


INITIAL  PARAMETER  VALUES 


Alpha  ■   21.00  degrees 
TAN<A1pha>  *   .38 

RH01  =  -55.50  degrees 

GLM  Radius  s   1.10  inches 

Aperture  =   1.10        Ya  ■   0.00  inch 

nl  ■   1.00000  n2  =   4.00000 

Number  of  Rays  =   10 

Design  Focal  Point  =•   4.00   inches 


Rho-initial  =   0.00 
TAN(RHO-INITIAL)  =   0.00 

Theta<cr i t i c al )  =   14.43  degrees 


Yb  =   1.10  inches 
n3  1.00000 
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TABLE  A-III 

CALCULATED  DATA  USED  TO  CONSTRUCT  THE  DESIGN 
CHART  IN  FIGURE  16 . 


RAY 


BETA 


THETAtRAY) 


NORMAL 


ALPHA2 


RHO  2 


1       -1.697 

13.317 

-63.320 

0.000 

21. 180 

-1.697 

1       -1.697 

13.326 

-63.829 

.007 

21. 171 

-1  .614 

1       -1.697 

13.335 

-68.338 

.813 

21. 162 

-1 . 530 

1       -1.697 

13.344 

-68.347 

.020 

21. 153 

-1.447 

1       -1.697 

13.354 

-68.356 

.027 

21. 144 

-1. 363 

1       -1.697 

13.363 

-68.366 

.033 

21. 134 

-1.279 

1       -1.697 

13.372 

-68.875 

.040 

21. 125 

-1. 195 

1       -1.697 

13.331 

-68.384 

.047 

21.  116 

-1.  11  1 

1       -1.697 

13.390 

-68.393 

.953 

21. 187 

-1.027 

1       -1.697 

13.399 

-68.902 

.060 

21.098 

-.942 

1       -1.697 

13.488 

-68.911 

.067 

21.089 

-.357 

1       -1.697 

13.417 

-68.920 

.073 

21.030 

-.772 

1       -1.697 

13.426 

-63.929 

.080 

21.071 

-.637 

1       -1.697 

13.435 

-68.933 

.037 

21.062 

-.602 

1       -1.697 

13. 444 

-63.947 

.093 

21.053 

-.517 

1       -1.697 

13.453 

-68.956 

.  100 

21.044 

-.431 

1       -1.697 

13.462 

-63. 965 

.107 

21.035 

-.345 

1       -1.697 

13.471 

-68.974 

.  113 

21.926 

-.259 

1       -1.697 

13.479 

-68.982 

.  120 

21.018 

-.  173 

1       -1.697 

13.488 

-68.991 

.  127 

21.909 

-.987 

1       -1.697 

13.479 

-68.982 

.  120 

21.013 

-.  173 

1       -1.697 

13.480 

-68.983 

.  121 

21.017 

-.  164 

1       -1.697 

13.481 

-63.984 

.  121 

21.016 

-.  156 

1       -1.697 

13.482 

-68.985 

.  122 

21.915 

-.  147 

1       -1.697 

13.433 

-68.936 

.  123 

21.014 

-.  133 

1       -1.697 

13.484 

-68.987 

.  123 

21.013 

-.  130 

1       -1.697 

13.485 

-68.988 

.  124 

21.012 

-.  121 

1       -1.697 

13.486 

-63.989 

.  125 

21.911 

-.  112 

1       -1.697 

13.486 

-68.989 

.  125 

21.011 

-.  104 

1       -1.697 

13.487 

-68.990 

.  126 

21.010 

-.095 

I       -1.697 

13.488 

-63.991 

.  127 

21.009 

-.987 

I       -1.697 

13.489 

-68.992 

.  127 

21.003 

-.073 

1       -1.697 

13.490 

-68.993 

.  123 

21.007 

-.069 

1       -1.697 

13.491 

-68.994 

.  129 

21.006 

-.061 

1       -1.697 

13.492 

-68.995 

.  129 

21.005 

-.952 

1       -1.697 

13.493 

-68.996 

.  130 

21.004 

-.043 

1       -1.697 

13.494 

-68.996 

.131 

21.004 

-.035 

1       -1.697 

13.494 

-68.997 

.  131 

21.003 

-.026 

1       -1.697 

13.495 

-68.998 

.  132 

21.002 

-.017 

1       -1.697 

13.496 

-68.999 

.  133 

21.001 

-.009 

1       -1.697 

13.495 

-63.998 

.  132 

21.002 

-.017 

1       -1.697 

13.495 

-63.998 

.  132 

21.002 

-.016 

1       -1.697 

13.495 

-68.993 

.  132 

21.002 

-.016 

1       -1.697 

13.496 

-68.999 

.  132 

21.001 

-.015 

1       -1.697 

13.496 

-68.999 

.  132 

21.001 

-.014 

1       -1.697 

13.496 

-63.999 

.  132 

21.001 

-.913 

65 


TABLE    A-III     (CONT) 


RflY 


BETA 


THETfKRftY) 


NORMAL 


FILPHfi2 


RHO    2 


-1.697 

13.496 

-68.999 

.  133 

21.001 

-.012 

-1.697 

13.496 

-68.999 

.  133 

21.001 

-.Oil 

-1.697 

13.496 

-63.999 

.  133 

21.0O1 

-.010 

-1.697 

13.496 

-63.999 

.  133 

21.001 

-.010 

-1.697 

13.496 

-68.999 

.  133 

21.O01 

-.009 

-1.697 

13.496 

-63.999 

.  133 

21.001 

-.003 

-1.697 

13.496 

-68.999 

.  133 

21.001 

-.  O07 

-1.697 

13.496 

-63.999 

.  133 

21.001 

-.006 

-1.697 

13.497 

-63.999 

.  133 

21.001 

-.005 

-1.697 

13.497 

-69. 000 

.  133 

21.000 

-.004 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.003 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.003 

-1.697 

13.497 

-69.000 

.  133 

21.0O0 

-.002 

-1.697 

13.497 

-69. 000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.002 

-1.697 

13.497 

-69.300 

.  133 

21.O00 

-.002 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.002 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.0OO 

-.001 

-1.697 

13.497 

-69. 000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69. 000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69. 000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.  000 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.  0O0 

-1.697 

13.497 

-69.000 

.  133 

21.O00 

-.000 

-1.697 

13.497 

-69.000 

.133 

21.000 

-.000 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.000 

2 

-3.673 

13.387 

-68.539 

0.000 

21.411 

-3 . 673 

2 

-3.673 

13. 108 

-68.611 

.013 

21.339 

-3.498 

2 

-3.673 

13. 129 

-63.632 

.027 

21.368 

•  -3.321 

2 

-3. 673 

13. 150 

-68.653 

.040 

21.347 

-3. 144 

2 

-3.673 

13. 171 

-68.674 

.053 

21.326 

-2.966 

2 

-3.673 

13. 192 

-68.695 

.067 

21.305 

-2.787 

2 

-3.673 

13.213 

-63.716 

.080 

21.234 

-2.608 

2 

-3.673 

13.234 

-63.737 

.093 

21.263 

-2.427 

2 

-3.673 

13.255 

-68.758 

.  107 

21.242 

-2.245 

2 

-3.673 

13.276 

-63.779 

.  120 

21.221 

-2.063 

2 

-3.673 

13.296 

-63.799 

.  133 

21.201 

-1.330 
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2 

-3.673 

13.317 

-68.820 

.  147 

21. 130 

-1.696 

2 

-3. 673 

13.337 

-63.840 

.  160 

21. 160 

-1.511 

2 

-3.673 

13.358 

-63.361 

.  174 

21. 139 

-1.325 

2 

-3.673 

13.378 

-63.381 

.  137 

21.  119 

-1. 139 

2 

-3.673 

13.398 

-63.901 

.200 

21.099 

-.951 

2 

-3.673 

13.413 

-68.921 

.214 

21.079 

-.763 

2 

-3.673 

13.438 

-63.941 

.227 

21.059 

-.  573 

2 

-3.673 

13.458 

-68.961 

.240 

21.039 

-.383 

2 

-3.673 

13.477 

-68.980 

.254 

21.020 

-.  192 

2 

-3.673 

13.458 

-68.961 

.240 

21.039 

-.333 

2 

-3.673 

13.469 

-68.963 

.242 

21.037 

-.364 

2 

-3.673 

13.462 

-63.965 

.243 

21.035 

-.345 

2 

-3.673 

13.464 

-68.967 

.244 

21.033 

-.  326 

2 

-3.673 

13.466 

-68.969 

.246 

21.031 

-.307 

2 

-3.673 

13.468 

-68.971 

.247 

21.029 

-.233 

2' 

-3.673 

13.470 

-68.973 

.248 

21.027 

-.  263 

2 

-3.673 

13.472 

-68.975 

.250 

21.025 

-.249 

2 

-3.673 

13.474 

-63.976 

.251 

21.024 

-.230 

2 

-3.673 

13.475 

-68.978 

.252 

21.822 

-.211 

2 

-3.673 

13.477 

-68.980 

.254 

21.020 

-.192 

2 

-3.673 

13.479 

-68.982 

.255 

21.018 

-.  173 

2 

-3.673 

13.481 

-68.984 

.256 

21.016 

-.  154 

2 

-3.673 

13.483 

-68.986 

.258 

21.014 

-.  134 

2 

-3.673 

13.485 

-63.988 

.259 

21.012 

-.  115 

2 

-3.673 

13.487 

-63.990 

.260 

21.010 

-.096 

2 

-3.673 

13.489 

-68.992 

.262 

21.003 

-.077 

2 

-3.673 

13.491 

-63.994 

.263 

21.006 

-.053 

2 

-3.673 

13.493 

-63.996 

.264 

21.004 

-.033 

2 

-3.673 

13.495 

-63.998 

.266 

21.002 

-.019 

2 

-3.673 

13.493 

-68.996 

.264 

21.004 

-.033 

2 

-3.673 

13.493 

-63.996 

.264 

21.004 

-.037 

2 

-3.673 

13.494 

-68.996 

.265 

21.004 

-.935 

2 

-3.673 

13.494 

-68.997 

.265 

21.003 

-.033 

2 

-3.673 

13.494 

-63.997 

.265 

21.003 

-.031 

2 

-3.673 

13.494 

-63.997 

.265 

21.003 

-.029 

2 

-3.673 

13.494 

-68.997 

.265 

21.003 

-.027 

2 

-3.673 

13.494 

-68.997 

.265 

21.003 

-.025 

2 

-3.673 

13.495 

-68.998 

.265 

21.002 

■  -.023 

2 

-3.673 

13.495 

-68.998 

.265 

21.002 

-.021 

2 

-3.673 

13.495 

-68.998 

.266 

21.002 

-.019 

2 

-3.673 

13.495 

-68.998 

.266 

21.002 

-.017 

2 

-3.673 

13.495 

-63.998 

.266 

21.002 

-.015 

2 

-3.673 

13.496 

-68.999 

.266 

21.001 

-.013 

2 

-3.673 

13.496 

-63.999 

.266 

21.001 

-.012 

2 

-3.673 

13.496 

-68.999 

.  266 

21.001 

-.010 

2 

-3.673 

13.496 

-68.999 

.266 

21.001 

-.003 
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2 

-3.673 

13.496 

-68.999 

.267 

21.001 

-.  08b 

2 

-3. 673 

13.497 

-69.800 

.267 

21.000 

-.004 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.002 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  004 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  004 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.003 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.003 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.003 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.003 

2 

-3.673 

13.497 

-69.000 

.26? 

21.000 

-.003 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.003 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.002 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.002 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  002 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.002 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  002 

2 

-3.673 

13.497 

-69.000 

.2.6? 

21.000 

-.001 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.001 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.001 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.001 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.801 

2 

-3. 673 

13.497 

-69.000 

.267 

21.000 

-.  000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.008 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-  .  088 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.808 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  080 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.  000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

•   -.008 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.000 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.008 

2 

-3.673 

13.497 

-69.000 

.267 

21.000 

-.800 

3 

-3.999 

12.737 

-68.290 

0.000 

21.710 

-5.999 

3 

-5.999 

12.32S 

-68.327 

.020 

21.673 

-5.722 
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3 

-5.999 

12.862 

-63.365 

.040 

21.635 

-5.442 

3 

-3.999 

12.399 

-68.402 

.060 

21.598 

-5. 160 

3 

-3.999 

12.936 

-68.439 

.080 

21.561 

-4.876 

3 

-5.999 

12.972 

-68.475 

.  100 

21.525 

-4.539 

3 

-5.999 

13.009 

-68.512 

.  120 

21.488 

-4.30O 

3 

-5.999 

13.945 

-68.543 

.  140 

21.452 

-4.009 

3 

-3.999 

13.081 

-68.584 

.  160 

21.416 

-3.715 

3 

-5.999 

13.  117 

-68. 620 

.  180 

21.380 

-3.419 

3 

-5.999 

13. 153 

-68.656 

.200 

21.344 

-3. 120 

3 

-5.999 

13. 189 

-68.692 

.220 

21.308 

-2.319 

3 

-5.999 

13.224 

-68.727 

.240 

21.273 

-2.516 

3 

-5.999 

13.259 

-68.762 

.260 

21.233 

-2.210 

3 

-5.999 

13.294 

-68.797 

.230 

21.203 

-1.902 

3 

-5.999 

13.329 

-68.831 

.300 

21. 169 

-1.591 

3 

-5.999 

13.363 

-68.366 

.320 

21. 134 

-1.273 

3 

-5.999 

13.397 

-63.900 

.340 

21. 100 

-.962 

3 

-5.999 

13.431 

-68.933 

.360 

21.067 

-.644 

3 

-5.999 

13.464 

-68.967 

.380 

21.033 

-.323 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-5.999 

13.464 

-68.967 

.380 

21.033 

-.323 

3 

-5.999 

13.467 

-63.970 

.382 

21.030 

-.291 

3 

-3.999 

13.471 

-68.974 

.384 

21.026 

-.259 

3 

-5.999 

13.474 

-68.977 

.386 

21.023 

-.227 

3 

-5.999 

13.477 

-68.980 

.338 

21.020 

-.194 

3 

-5.999 

13.431 

-68.983 

.390 

21.017 

-.  162 

3 

-5.999 

13.484 

-68.987 

.392 

21.013 

-.130 

3 

-5.999 

13.487 

-68.990 

.394 

21.010 

-.097 

3 

-5.999 

13.490 

-68.993 

.396 

21.O07 

-.065 

3 

-3.999 

13.494 

-63.997 

.398 

21.003 

-.032 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.  000 

3 

-3.999 

13.494 

-68.997 

.398 

21.003 

-.032 

3 

-5.999 

13.494 

-68.997 

.399 

21.003 

-.029 

3 

-3.999 

13.494 

-68.997 

.399 

21.O03 

-.026 

3 

-5.999 

13.495 

-68.998 

.399 

21.002 

-.023 

3 

-5.999 

13.495 

-68.998 

.399 

21.002 

-.019 

3 

-3.999 

13.495 

-68.993 

.399 

21.O02 

-.016 

3 

-3.999 

13.496 

-68.999 

.400 

21.001 

-.013 

3 

-3.999 

13.496 

-68.999 

.400 

21.001 

-.010 

3 

-5.999 

13.496 

-68.999 

.400 

21.0O1 

-.006 

3 

-3.999 

13.497 

-69.000 

.400 

21.000 

-.003 

3 

-3.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-3.999 

13.497 

-69.000 

.400 

21.000 

-.003 

3 

-3.999 

13.497 

-69.000 

.400 

21.O00 

-.003 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.003 

3 

-5.999 

13.497 

-69.000 

.400 

21.900 

-.002 

3 

-3.999 

13.497 

-69.000 

.400 

21.000 

-.002 
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3 

-3.999 

13.497 

-69.000 

.400 

21.000 

-.002 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.001 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.001 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.001 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-5.999 

13.497 

-69.000 

.400 

21.800 

-.000 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.  000 

3 

-3.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-  .  OOO 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.800 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.  000 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.  000 

3 

-5.999 

13.497 

-69.000 

.400 

21.000 

-.000 

3 

-5.999 

13.497 

-69.000 

.400 

21.900 

-.000 

3 

-5.999 

13.497 

-69.800 

.400 

21.000 

-.000 

4 

-8.765 

12.391 

-67.894 

0.000 

22. 106 

-8.765 

4 

-8.765 

12.449 

-67.952 

.027 

22.043 

-3.377 

4 

-8.765 

12.507 

-68.010 

.053 

21.990 

-7.934 

4 

-8.765 

12.565 

-68.868 

.880 

21.932 

-7. 586 

4 

-8. 765 

12.623 

-68. 126 

.  107 

21.374 

-7. 132 

4 

-8.765 

12.631 

-63. 184 

.  133 

21.316 

-6.774 

4 

-8.765 

12.738 

-63.241 

.  160 

21.759 

-6. 361 

4 

-8.765 

12.795 

-68.298 

.  137 

21.702 

-5.942 

4 

-8.765 

12.852 

-63.355 

.214 

21.645 

-5.513 

4 

-8.765 

12.988 

-68.411 

.240 

21.589 

-5.089 

4 

-8.765 

12.964 

-63.467 

.267 

21.533 

-4.654 

4 

-8.765 

13.029 

-68.523 

.294 

21.477 

-4.214 

4 

-8.765 

13.875 

-63.578 

.320 

21.422 

-3.763 

4 

-8.765 

13. 130 

-68. 633 

.347 

21.367 

-3.317 

4 

-8.765 

13. 184 

-68.687 

.374 

21.313 

-2.860 

4 

-8.765 

13.238 

-68.741 

.480 

21.259 

-2.393 

4 

-8.765 

13.291 

-68.794 

.427 

21.206 

-1.930 

4 

-8.765 

13.343 

-68.346 

.434 

21. 154 

-1.456 

4 

-8.765 

13.395 

-68.898 

.480 

21. 102 

-.976 

4 

-8.765 

13.447 

-68.949 

.507 

21.051 

-.491 

4 

-8.765 

13.447 

-68.949 

.587 

21.051 

-.491 

4 

-8.765 

13.452 

-68.955 

.510 

21.045 

-.442 

4 

-8.765 

13.457 

-68.960 

.513 

21.040 

-.393 

4 

-8.765 

13.462 

-68.965 

.515 

21.035 

-.344 

4 

-8.765 

13.467 

-63.970 

.518 

21.030 

-.295 

4 

-8.765 

13.472 

-63.975 

.521 

21.025 

-.246 

4 

-8.765 

13.477 

-68.980 

.523 

21.020 

-.  197 

4 

-8.765 

13.432 

-63.985 

.526 

21.015 

-.  148 
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4 

-8.765 

13.487 

-63.990 

.529 

21.010 

-.099 

4 

-8.765 

13.492 

-68.995 

.531 

21.005 

-.049 

4 

-8.765 

13.492 

-68.995 

.531 

21.805 

-.049 

4 

-8.765 

13.493 

-68.995 

.531 

21.005 

-.044 

4 

-8.765 

13.493 

-63.996 

.532 

21.004 

-.040 

4 

-8.765 

13.494 

-68.996 

.532 

21.004 

-.035 

4 

-8.765 

13.494 

-63.997 

.532 

21.003 

-.038 

4 

-8.765 

13.495 

-68.997 

.533 

21.003 

-.025 

4 

-8.765 

13.495 

-68.998 

.533 

21.802 

-.028 

4 

-8.765 

13.496 

-68.998 

.533 

21.002 

-.015 

4 

-8.765 

13.496 

-68.999 

.533 

21.001 

-.010 

4 

-8.765 

13.497 

-68.999 

.534 

21.001 

-.005 

4 

-8.765 

13.497 

-63.999 

.534 

21.001 

-.005 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.804 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.004 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.003 

4 

-8.765 

13.497 

-69.000 

.534 

21.800 

-.003 

4 

-3.765 

13.497 

-69.900 

.534 

21.000 

-.002 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.002 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.081 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.001 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.000 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.000 

4 

-8.765 

13.497 

-69. 000 

.534 

21.000 

-.000 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.000 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.000 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.008 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.808 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.000 

4 

-8.765 

13.497 

-69.000 

.534 

21.000 

-.880 

4 

-3.765 

13.497 

-69.000 

.534 

21.000 

-.800 

4 

-8.763 

13.497 

-69.000 

.534 

21.000 

-.000 

5 

-12.092 

11.356 

-67.359 

8.000 

22.641 

-12.992 

3 

-12.892 

11.941 

-67.444 

.033 

22.556 

-11.587 

3 

-12.892 

12.027 

-67.530 

.067 

22.470 

-11.073 

3 

-12.992 

12. 112 

-67.615 

.  100 

22.385 

-10.549 

3 

-12.092 

12. 197 

-67.7Q6 

.  133 

22.300 

-10.015 

5 

-12.892 

12.233 

-67.786 

.  167 

22.214 

-9.471 

3 

-12.892 

12.363 

-67.371 

.200 

22.129 

-3.917 

5 

-12.092 

12.453 

-67.956 

.234 

22.044 

-3.353 

3 

-12.092 

12.537 

-68.040 

.267 

21.960 

-7.773 

5 

-12.092 

12.622 

-68. 125 

.300 

21.375 

-7. 192 

3 

-12.092 

12.705 

-63.208 

.334 

21.792 

-6.596 

3 

-12.092 

12.789 

-63.292 

.367 

21.708 

-5.989 

5 

-12.092 

12.371 

-68.374 

.400 

21.626 

-5.370 
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5 

-12.392 

12.933 

-68.456 

.434 

21.544 

-4.740 

5 

-12.392 

13.834 

-63.537 

.467 

21.463 

-4.099 

5 

-12.392 

13. 114 

-68.617 

.501 

21.383 

-3.446 

5 

-12.092 

13. 193 

-68.696 

.534 

21.384 

-2.731 

5 

-12.092 

13.271 

-63.774 

.567 

21.226 

-2. 104 

5 

-12.092 

13.348 

-68.851 

.601 

21. 149 

-1.415 

5 

-12.092 

13.423 

-68.926 

.634 

21.074 

-.714 

5 

-12.092 

13.348 

-68.851 

.601 

21.  149 

-1.415 

5 

-12.092 

13.335 

-68.353 

.604 

21. 142 

-1.345 

5 

-12.092 

13.363 

-63.866 

.607 

21. 134 

-1.275 

5 

-12.092 

13.371 

-68.374 

.611 

21. 126 

-I . 206 

5 

-12.092 

13.378 

-68.881 

.614 

21.  119 

-1. 136 

3 

-12.092 

13.386 

-68.889 

.617 

21.111 

-1.066 

5 

-12.092 

13.393 

-68.896 

.621 

21. 104 

-.995 

5 

-12.092 

13.401 

-68.904 

.624 

21.096 

-.925 

5 

-12.092 

13.408 

-63.911 

.627 

21.089 

-.355 

5 

-12.092 

13.416 

-68.919 

.631 

21.081 

-.734 

5 

-12.092 

13.423 

-68.926 

.634 

21.074 

-.714 

5 

-12.092 

13.431 

-68.934 

.637 

21.066 

-.  643 

3 

-12.092 

13.438 

-68.941 

.641 

21.059 

-.572 

5 

-12.092 

13.446 

-68.948 

.644 

21.352 

-.501 

5 

-12.092 

13.453 

-63.956 

.647 

21.044 

-.430 

5 

-12.092 

13.460 

-63.963 

.651 

21.037 

-.358 

5 

-12.092 

13.468 

-68.971 

.654 

21.029 

-.237 

3 

-12.092 

13.473 

-68.978 

.657 

21.022 

-.215 

5 

-12.092 

13.482 

-68.985 

.661 

21.015 

-.144 

3 

-12.092 

13.490 

-68.993 

.664 

21.007 

-.072 

5 

-12.092 

13.482 

-68.985 

.661 

21.015 

-.  144 

3 

-12.092 

13.483 

-68.986 

.  661 

21.314 

-.  137 

5 

-12.092 

13.484 

-63.987 

.661 

21.013 

-.  129 

3 

-12.092 

13.485 

-68.988 

.662 

21.012 

-.  122 

3 

-12.092 

13.435 

-63.988 

.662 

21.012 

-.  115 

3 

-12.092 

13.486 

-68.989 

.  662 

21.811 

-.  108 

3 

-12.092 

13.487 

-68.990 

.663 

21.010 

-.  101 

3 

-12.092 

13.488 

-68.990 

.663 

21.010 

-.093 

5 

-12.092 

13.483 

-68.991 

.663 

21.009 

-.086 

3 

-12.092 

13.489 

-68.992 

.664 

21.008 

-.079 

3 

-12.092 

13.490 

-63.993 

.664 

21.007 

-.072 

5 

-12.092 

13.490 

-63.993 

.664 

21.087 

-.065 

3 

-12.092 

13.491 

-68.994 

.665 

21.006 

-.058 

3 

-12.092 

13.492 

-68.995 

.665 

21.005 

-.050 

5 

-12.092 

13.493 

-68.996 

.  665 

21.004 

-.043 

3 

-12.092 

13.493 

-68.996 

.666 

21.004 

-.036 

5 

-12.092 

13.494 

-63.997 

.666 

21.003 

-.029 

5 

-12.092 

13.495 

-63.998 

.666 

21.002 

-.022 

3 

-12.092 

13.496 

-68.999 

.667 

21.001 

-.014 
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5 

-12.092 

13.496 

-68.999 

.667 

21.001 

-.007 

5 

-12.392 

13.49? 

-69.000 

.66? 

21.000 

-.000 

5 

-12.092 

13.496 

-68.999 

.  66? 

21.001 

-.007 

5 

-12.092 

13.496 

-68.999 

.  667 

21.801 

-.006 

5 

-12.092 

13.496 

-68.999 

.66? 

21.001 

-.  006 

5 

-12.092 

13.49? 

-68.999 

.66? 

21.801 

-.  005 

5 

-12.092 

13.49? 

-69.000 

.66? 

21.000 

-.004 

5 

-12.092 

13.49? 

-69.000 

.66? 

21.000 

-.  004 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.003 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.002 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.001 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.001 

5 

-12.092 

13.49? 

-69.000 

.66? 

21.000 

-.000 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.001 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.001 

5 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.49? 

-69.000 

.66? 

21.000 

-.  000 

5 

-12.092 

13.49? 

-69.000 

.66? 

21.000 

-.000 

5 

-12.092 

13.49? 

-69.000 

.66? 

21.000 

-.000 

5 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

5 

-12.092 

13.49? 

-69.000 

.667 

21.000 

-.000 

5 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

6 

-16. 140 

11. 120 

-66.623 

0.000 

23.377 

-16. 140 

6 

-16. 140 

11.239 

-66.742 

.040 

23.258 

-15.519 

6 

-16. 140 

11.359 

-66.862 

.080 

23. 138 

-14.382 

6 

-16. 140 

11.479 

-66.982 

.  120 

23.013 

-14.227 

6 

-16. 140 

11.601 

-67. 104 

.160 

22.896 

-13.556 

6 

-16. 140 

11.723 

-67.226 

.200 

22.774 

-12.366 

6 

-16. 140 

11.845 

-67.348 

.240 

22.652 

-12. 157 

6 

-16. 140 

11.963 

-67.471 

.280 

22.529 

-11.430 

6 

-16. 140 

12.090 

-67.393 

.320 

22.407 

-10.683 

6 

-16. 140 

12.213 

-67.716 

.360 

22.234 

-9.916 

6 

-16. 140 

12.336 

-67.839 

.400 

22. 161 

-9. 123 

6 

-16. 140 

12.438 

-67.961 

.440 

22.039 

-8.319 

6 

-16.140 

12.379 

-68.082 

.480 

21.918 

• -7.488 

6 

-16. 140 

12.700 

-68.203 

.521 

21.797 

-6.635 

6 

-16. 140 

12.819 

-68.322 

.561 

21.673 

-5.739 

6 

-16. 140 

12.938 

-68.441 

.601 

21.559 

-4.360 

6 

-16. 140 

13.054 

-68.557 

.641 

21.443 

-3.937 

6 

-16. 140 

13. 169 

-63.672 

.681 

21.323 

-2.990 

6 

-16. 140 

13.281 

-68.734 

.721 

21.216 

-2.019 

6 

-16. 140 

13.390 

-68.893 

.761 

21. 107 

-1.022 

6 

-16. 140 

13.281 

-63.784 

.721 

21.216 

-2.019 
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6 

-16. 

140 

13.292 

-68.795 

.725 

21.205 

-1.920 

6 

-16. 

140 

13.303 

-68.806 

.729 

21. 194 

-1.321 

6 

-16. 

140 

13.314 

-68.317 

.733 

21. 133 

-1.722 

6 

-16. 

140 

13.325 

-68.828 

.737 

21.172 

-1.623 

6 

-16. 

140 

13.336 

-68.839 

.741 

21. 161 

-1.524 

6 

-16. 

140 

13.347 

-68.850 

.745 

21.  150 

-1.424 

6 

-16. 

140 

13.358 

-68.861 

.749 

21. 139 

-1.324 

6 

-16. 

140 

13.369 

-68.872 

.753 

21. 128 

-1.223 

6 

-16. 

140 

13.380 

-68.383 

.757 

21.  117 

-1. 123 

6 

-16. 

140 

13.390 

-68.393 

.761 

21.  187 

-1.322 

o 

-16. 

140 

13.401 

-68.904 

.765 

21.096 

-.921 

6 

-16. 

140 

13.412 

-63.915 

.769 

21.085 

-.320 

6 

-16. 

140 

13.423 

-63.926 

.773 

21.074 

-.713 

6 

-16. 

140 

13.433 

-68.936 

.777 

21.064 

-.616 

6 

-16. 

140 

13.444 

-68.947 

.731 

21.053 

-.514 

6 

-16. 

140 

13.455 

-68.958 

.785 

21.042 

-.412 

6 

-16. 

140 

13.465 

-68.963 

.789 

21.032 

-.  309 

6 

-16. 

140 

13.476 

-63.979 

.793 

21.021 

-.206 

6 

-16. 

140 

13.487 

-63.989 

.797 

21.011 

-.  103 

6 

-16. 

140 

13.476 

-68.979 

.793 

21.821 

-.206 

6 

-16. 

140 

13.477 

-68.980 

.793 

21.020 

-.  196 

6 

-16. 

140 

13.473 

-68.981 

.794 

21.019 

-.  136 

6 

-16. 

140 

13.479 

-63.982 

.794 

21.013 

-.  176 

6 

-16. 

140 

13.480 

-63.983 

.794 

21.017 

-.  165 

6 

-16. 

140 

13.481 

-68.984 

.795 

21.016 

-.  155 

6 

-16. 

140 

13.482 

-63.985 

.795 

21.015 

-.  145 

6 

-16. 

140 

13.483 

-63.936 

.796 

21.014 

-.  134 

6 

-16. 

140 

13.484 

-63.987 

.796 

21.013 

-.  124 

6 

-16. 

140 

13.485 

-63.988 

.796 

21.012 

-.  114 

6 

-16. 

140 

13.487 

-68.989 

.797 

21.011 

-.  103 

6 

-16. 

140 

13.488 

-63.991 

.797 

21.009 

-.093 

6 

-16. 

140 

13.489 

-68.992 

.798 

21.008 

-.083 

6 

-16. 

140 

13.490 

-68.993 

.798 

21.007 

-.072 

6 

-16. 

140 

13.491 

-63.994 

.798 

21.006 

-.062 

6 

-16. 

140 

13.492 

-63.995 

.799 

21.005 

-.052 

6 

-16. 

140 

13.493 

-63.996 

.799 

21.004 

-.041 

6 

-16. 

140 

13.494 

-68.997 

.800 

21.003 

.  -.031 

6 

-16. 

140 

13.495 

-63.998 

.300 

21.002 

-.021 

6 

-16. 

140 

13.496 

-68.999 

.300 

21.001 

-.010 

6 

-16. 

140 

13.495 

-68.998 

.300 

21.002 

-.021 

6 

-16. 

140 

13.495 

-68.998 

.800 

21.002 

-.  020 

6 

-16. 

140 

13.495 

-63.998 

.800 

21.002 

-.019 

6 

-16. 

140 

13.495 

-68.998 

.800 

21.002 

-.018 

6 

-16. 

140 

13.495 

-68.998 

.800 

21.002 

-.017 

6 

-16. 

140 

13.495 

-63.998 

.300 

21.002 

-.016 

6 

-16. 

140 

13.496 

-63.999 

.300 

21.001 

-.014 
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6 

-16. 140 

13.496 

-63.999 

.800 

21.001 

-.013 

6 

-16. 140 

13.496 

-68.999 

.300 

21.001 

-.012 

6 

-16. 140 

13.496 

-68.999 

.300 

21.801 

-.011 

6 

-16. 140 

13.496 

-68.999 

.300 

21.001 

-.010 

6 

-16. 140 

13.496 

-68.999 

.300 

21.001 

-.  009 

6 

-16. 140 

13.496 

-68.999 

.300 

21.001 

-.008 

6 

-16. 140 

13.496 

-68.999 

.301 

21.001 

-.007 

6 

-16. 140 

13.496 

-68.999 

.301 

21.001 

-.  006 

6 

-16. 140 

13.497 

-68.999 

.301 

21.001 

-.005 

6 

-16. 140 

13.497 

-69.000 

.801 

21.000 

-.004 

6 

-16. 140 

13.497 

-69.000 

.301 

21.000 

-.003 

6 

-16. 140 

13.497 

-69.000 

.301 

21.000 

-.002 

6 

-16. 140 

13.497 

-69.000 

.301 

21.000 

-.001 

6 

-16. 140 

13.497 

-69.000 

.301 

21.000 

-.000 

7 

-21.  114 

10.038 

-65.591 

0.000 

24.409 

-21. 114 

7 

-21.  114 

10.246 

-65.749 

.047 

24.251 

-20.394 

■7 

-21. 114 

10.406 

-65.909 

.893 

24.091 

-19.647 

7 

-21.  114 

10.570 

-66.073 

.  140 

23.927 

-18.872 

7 

-21.  114 

10.736 

-66.239 

.  187 

23.761 

-13.068 

7 

-21.  114 

10.903 

-66.408 

.234 

23.592 

-17.233 

7 

-21.  114 

11.076 

-66.579 

.280 

23.421 

-16. 366 

7 

-21.  114 

11.249 

-66.752 

.327 

23.248 

-15.466 

7 

-21.  114 

11.424 

-66.926 

.374 

23.074 

-14.531 

7 

-21.  114 

11.600 

-67. 103 

.420 

22.397 

-13.560 

7 

-21.114 

11.778 

-67.280 

.467 

22.720 

-12.550 

7 

-21.  114 

11.956 

-67.459 

.514 

22.541 

-11.500 

7 

-21.114 

12. 135 

-67.637 

.561 

22. 363 

-10.410 

7 

-21.  114 

12.313 

-67.816 

.607 

22. 184 

-9.276 

7 

-21.  114 

12.491 

-67.994 

.654 

22.006 

-8.097 

7 

-21.  114 

12.667 

-68. 170 

.701 

21.830 

-6.372 

7 

-21.114 

12.341 

-68.344 

.747 

21.656 

-5.599 

7 

-21.  114 

13.012 

-68.515 

.794 

21.485 

-4.277 

7 

-21.114 

13. 179 

-68.682 

.841 

21.313 

-2.904 

7 

-21. 114 

13.341 

-68.844 

.888 

21. 136 

-1.479 

7 

-21.  114 

13. 179 

-68.682 

.341 

21.313 

-2.904 

7 

-21. 114 

13. 195 

-68.698 

.846 

21.302 

-2.764 

7 

-21.  114 

13.212 

-68.715 

.850 

21.283 

'  -2.623 

7 

-21.  114 

13.228 

-68.731 

.853 

21.269 

-2.482 

7 

-21.114 

13.244 

-68.747 

.360 

21.233 

-2.340 

7 

-21.  114 

13.260 

-68.763 

.864 

21.237 

-2. 198 

7 

-21.114 

13.277 

-68.730 

.369 

21.220 

-2.055 

7 

-21.114 

13.293 

-68.796 

.874. 

21.204 

-1.912 

7 

-21.114 

13.309 

-68.812 

.878 

21. 138 

-1.768 

7 

-21.  114 

13.325 

-63.823 

.833 

21. 172 

-1.624 

7 

-21.  114 

13.341 

-68.844 

.888 

21. 156 

-1.479 
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7 

-21.  114 

13.357 

-63.860 

.392 

21. 140 

-1. 333 

7 

-21.  114 

13.373 

-63.376 

.397 

21. 124 

-1. 187 

•j 

-21.  114 

13.338 

-68.391 

.902 

21. 109 

-1.041 

7 

-21.  114 

13.404 

-68.907 

.906 

21.093 

-.  394 

f 

-21. 114 

13.420 

-68.923 

.911 

21.077 

-.746 

7 

-21.  114 

13.435 

-63.938 

.916 

21.062 

-.598 

7 

-21. 114 

13.451 

-68.954 

.920 

21.046 

-.  449 

7 

-21.  114 

13.466 

-63.969 

.925 

21.031 

-.  300 

7 

-21.  114 

13.482 

-68.985 

.930 

21.015 

-.  150 

7 

-21.  114 

13.497 

-69.000 

.934 

21.000 

-.  000 

8 

-27.265 

3.626 

-64. 129 

0.000 

25.871 

-27.265 

3 

-27.265 

8.820 

-64.323 

.053 

25.677 

-26.493 

8 

-27.265 

9.021 

-64.524 

.  107 

25.476 

-25.631 

3 

-27.265 

9.229 

-64.732 

.  160 

25.268 

-24.327 

8 

-27.265 

9.  444 

-64.947 

.214 

25.053 

-23.923 

8 

-27.265 

9.665 

-65. 168 

.267 

24.832 

-22.980 

3 

-27.265 

9.394 

-65.397 

.320 

24.603 

-21.981 

3 

-27.265 

10. 129 

-65.632 

.374 

24.363 

-20.926 

8 

-27.265 

10.371 

-65.874 

.427 

24. 126 

-19.312 

8 

-27.265 

10.620 

-66. 122 

.430 

23.878 

-18.634 

3 

-27.265 

10.374 

-66.377 

.534 

23.623 

-17.387 

8 

-27.265 

11. 134 

-66.63? 

.587 

23.363 

-16.067 

8 

-27.265 

11.398 

-66.901 

.641 

23.099 

-14.669 

3 

-27.265 

1 1 . 666 

-67. 169 

.694 

22.331 

-13. 138 

3 

-27.265 

11.936 

-67.439 

.747 

22.561 

-11.617 

8 

-27.265 

12.208 

-67.711 

.801 

22.239 

-9.951 

8 

-27.265 

12.478 

-67.981 

.354 

22.019 

-8. 134 

3 

-27.265 

12.745 

-68.248 

.908 

21.752 

-6.311 

8 

-27.265 

13.006 

-68.509 

.961 

21.491 

-4.326 

8 

-27.265 

13.253 

-68.761 

1.014 

21.239 

-2.224 

8 

-27.265 

13.006 

-68.509 

.961 

21.491 

-4.326 

8 

-27.265 

13.031 

-68.534 

.966 

21.466 

-4. 121 

3 

-27.265 

13.057 

-68.560 

.972 

21.440 

-3.915 

8 

-27.265 

13.082 

-68.585 

.977 

21.415 

-3.708 

8 

-27.265 

13. 108 

-68.611 

.982 

21.339 

-3.500 

8 

-27.265 

13.133 

-68.636 

.988 

21.364 

. -3.290 

8 

-27.265 

13.158 

-68.661 

.993 

21.339 

-3.079 

3 

-27.265 

13. 133 

-68.686 

.998 

21.314 

-2.867 

8 

-27.265 

13.208 

-68.711 

1.004 

21.289 

-2.654 

8 

-27.265 

13.233 

-68.736 

1.009 

21.264 

-2.440 

3 

-27.265 

13.258 

-68.761 

1.014 

21.239 

-2.224 

3 

-27.265 

13.282 

-68.785 

1.020 

21.215 

-2.007 

8 

-27.265 

13.307 

-68.810 

1.025 

21. 190 

-1.789 

8 

-27.265 

13.331 

-68.334 

1.030 

21. 166 

-1.570 

8 

-27.265 

13.355 

-68.858 

1.036 

21.142 

-1.349 

76 


TABLE    A-III     (CONT) 


RAY 

BETA 

THETA(RAY) 

NORMAL 

S 

ALPHA2 

RHO  2 

3 

-27.263 

13.379 

-68.382 

1.041 

21.  118 

-1. 12? 

8 

-27.265 

13.483 

-63.906 

1.046 

21.094 

-.904 

3 

-27.265 

13.427 

-68.930 

1.052 

21.370 

-.  630 

3 

-27.265 

13.450 

-63.953 

1.057 

21.04? 

-.455 

8 

-27.265 

13.474 

-63.977 

1.062 

21.023 

-.223 

8 

-27.265 

13.450 

-68.953 

1.057 

21.04? 

-.455 

8 

-27.265 

13.453 

-68.956 

1.058 

21.044 

-.432 

8 

-27.265 

13.455 

-63.958 

1.058 

21.042 

-.409 

8 

-27.265 

13.457 

-68.960 

1.059 

21.040 

-.337 

3 

-27.265 

13.460 

-68.963 

1.059 

21.037 

-.364 

3 

-27.265 

13.462 

-68.965 

1.060 

21.035 

-.341 

8 

-27.265 

13.464 

-63.967 

1.060 

21.033 

-.319 

8 

-27.265 

13.467 

-63.970 

1.061 

21.030 

-.296 

3 

-27.265 

13.469 

-68.972 

1.061 

21.028 

-.273 

8 

-27.265 

13.471 

-68.974 

1.062 

21.026 

-.251 

8 

-27.265 

13.474 

-68.977 

1.062 

21.023 

-.223 

8 

-27.265 

13.476 

-68.979 

1.063 

21.021 

-.205 

8 

-27.265 

13.478 

-63.981 

1.063 

21.019 

-.  132 

3 

-27.265 

13.481 

-68.984 

1.064 

21.016 

-.  160 

3 

-27.265 

13.483 

-63.986 

1.065 

21.014 

-.  137 

8 

-27.265 

13.485 

-68.983 

1.065 

21.012 

-.  114 

3 

-27.265 

13.438 

-63.991 

1.066 

21.009 

-.091 

3 

-27.265 

13.490 

-63.993 

1.066 

21.00? 

-.069 

8 

-27.265 

13.492 

-68.995 

1.067 

21.005 

-.046 

8 

-27.265 

13.495 

-68.993 

1.067 

21.002 

-.023 

3 

-27.265 

13.492 

-68.995 

1.067 

21.005 

-.  046 

8 

-27.265 

13.493 

-68.996 

1.067 

21.004 

-.043 

3 

-27.265 

13.493 

-68.996 

1.067 

21.004 

-.041 

3 

-27.265 

13.493 

-68.996 

1.067 

21.084 

-.039 

8 

-27.265 

13.493 

-68.996 

1.067 

21.004 

-.037 

3 

-27.265 

13.494 

-63.997 

1.067 

21.003 

-.034 

8 

-27.265 

13.494 

-68.997 

1.067 

21.003 

-.032 

3 

-27.265 

13.494 

-68.997 

1.067 

21.003 

-.030 

3 

-27.265 

13.494 

-68.997 

1.067 

21.003 

-.027 

3 

-27.265 

13.494 

-68.997 

1.067 

21.003 

-.025 

3 

-27.265 

13.495 

-68.998 

1.067 

21.002 

-.023 

3 

-27.265 

13.495 

-68.998 

1.067 

21.002 

-.021 

3 

-27.265 

13.495 

-68.998 

1.067 

21.002 

-.013 

3 

-27.265 

13.493 

-63.998 

1.067 

21.002 

-.016 

3 

-27.265 

13.496 

-68.999 

1.067 

21.001 

-.014 

8 

-27.265 

13.496 

-68.999 

1.067 

21.001 

-.011 

3 

-27.265 

13.496 

-63.999 

1.068 

21.001 

-.009 

3 

-27.265 

13.496 

-68.999 

1.068 

21.001 

-.00? 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.005 

3 

-27.265 

13.497 

-69.000 

1.063 

21.000 

-.002 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.005 

77 


TABLE    A-III     (CONT) 


RAY 


BETA 


THETA<RAY) 


NORMAL 


alpha: 


RHO    2 


3 

-27.265 

13.497 

-69.808 

1.068 

21.000 

-.  304 

8 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.004 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.004 

3 

-27.265 

13.497 

-69.000 

1.868 

21.000 

-.004 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.003 

3 

-27.265 

13.497 

-69.000 

1.868 

21.000 

-.003 

3 

-27.265 

13.497 

-69.080 

1.863 

21.000 

-.003 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.303 

8 

-27.265 

13.497 

-69.000 

1.063 

21.000 

-.003 

3 

-27.265 

13.497 

-69.000 

1.063 

21.000 

-.002 

8 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.002 

3 

-27.265 

13.497 

-69.000 

1.063 

21.000 

-.002 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.002 

3 

-27.265 

13.497 

-69.000 

1.063 

21.000 

-.001 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.001 

3 

-27.265 

13.497 

-69.000 

1.863 

21.800 

-.001 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.001 

3 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.000 

8 

-27.265 

13.497 

-69.000 

1.068 

21.000 

-.000 

9 

-34.365 

6.562 

-62.065 

0.000 

27.935 

-34.365 

9 

-34.865 

6.769 

-62.272 

.060 

27.728 

-34. 142 

9 

-34.865 

6.989 

-62.492 

.  129 

27.508 

-33.368 

9 

-34.365 

7.221 

-62.724 

.  180 

27.276 

-32.539 

9 

-34.865 

7.467 

-62.970 

.240 

27.030 

-31.649 

9 

-34.365 

7.728 

-63.231 

.300 

26.769 

-30.693 

9 

-34.865 

3.984 

-63.507 

.360 

26.493 

-29.661 

9 

-34.865 

3.296 

-63.799 

.420 

26.231 

-23.547 

9 

-34.865 

3.636 

-64. 109 

.488 

25.391 

-27.341 

9 

-34.365 

8.935 

-64.437 

.541 

25.563 

-26.032 

9 

-34.865 

9.282 

-64.785 

.601 

25.215 

-24.608 

9 

-34.865 

9.648 

-65. 151 

.661 

24.849 

-23.054 

9 

-34.865 

18.034 

-65.537 

.721 

24.463 

-21.356 

9 

-34.365 

10.439 

-65.942 

.781 

24.05S 

-19.495 

9 

-34.865 

19.361 

-66.364 

.841 

23.636 

-17.452 

9 

-34.865 

11.298 

-66.301 

.901 

23. 199 

-15.204 

9 

-34.365 

11.747 

-67.250 

.961 

22.750 

.-12.727 

9 

-34.865 

12.281 

-67.704 

1.021 

22.296 

-9.994 

9 

-34.865 

12.652 

-68.  155 

1.081 

21.845 

-6.980 

9 

-34.865 

13.889 

-68.592 

1.  141 

21.403 

-3.656 

9 

-34.865 

12.652 

-63. 155 

1.831 

21.345 

-6.980 

9 

-34.865 

12.696 

-68.  199 

1.087 

21.801 

-6. 662 

9 

-34.365 

12.741 

-63.244 

1.093 

21.756 

-6.341 

9 

-34.365 

12.785 

-68.288 

1.099 

21.712 

-6.016 

9 

-34.865 

12.329 

-68.332 

1.  105 

21.668 

-5.639 

9 

-34.865 

12.373 

-68.376 

1.111 

21.624 

-5.353 
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-34.865 
•34.365 
-34.365 
-34.865 
-34.865 
-34.865 
-34.365 
-34.865 
-34.365 
-34.865 
-34.865 
-34.865 
-34.865 
-34.365 
-34.365 
-34.865 
-34.365 
-34.865 
-34.365 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.365 
-34.365 
-34.365 
-34.365 
-34.865 
-34.865 
-34.865 
-34.865 
-34.365 
-34.865 
•34.865 
-34.865 
-34.365 
•34.365 
-34.865 
-34.365 
•34.865 


12.916 
12.960 
13.303 
13.346 
13.989 
13. 131 
13. 173 
13.215 
13.256 
13.297 
13.338 
13.378 
13.418 
13.458 
13.413 
13.422 
13.426 
13.430 
13.434 
13.433 
13.442 
13.446 
13.450 
13.454 
13.458 
13.462 
13.466 
13.470 
13.474 
13.473 
13.481 
13.435 
13.489 
13.493 
13.489 
13.490 
13.490 
13.490 
13.491 
13.491 
13.492 
13.492 
13.492 
13.493 
13.493 
13.494 


-63.419 
-63. 463 
-68.506 
-68.549 
-63.592 
-63.634 
-68.676 
-68.713 
-63.759 
-68.800 
-63.841 
-68.881 
-68.921 
-68.961 
-63.921 
-68.925 
-68.929 
-68.933 
-63.937 
-63.941 
-63.945 
-63.949 
-68.953 
-68.957 
-68.961 
-68.965 
-63.969 
-68.973 
-68.977 
-63.981 
-63.984 
•68.988 
-68.992 
-68.996 
-63.992 
-68.993 
-68.993 
•68.993 
-63.994 
-68.994 
-63.995 
•68.995 
•63.995 
•63.996 
•68.996 
•68.997 


.  117 
.  123 
.  129 
.  135 
,  141 
,  147 
,  153 
,  159 
.  165 
.  171 
.  177 
.  183 
.  139 
.  195 
.  189 
,  190 
,  190 
.  191 
,  192 
,  192 
.  193 
.  193 
,  194 
,  195 
,  195 
,  196 
,  196 
.  197 
,  198 
,  198 
,  199 
.199 
200 
201 
200 
280 
200 

,200 

200 
200 
200 
200 
201 
201 
201 
201 


21.531 
21.537 
21.494 
21.451 
21.403 
21.366 
21.324 
21. 232 
21.241 
21.200 
21. 159 
21.119 
21.079 
21.039 
21.079 
21.075 
21.071 
21.067 
21.063 
21.059 
21.055 
21.051 
21.047 
21.043 
21.039 
21.035 
21.031 
21.027 
21.023 
21.019 
21.016 
21.012 
21.008 
21.004 
21.008 
21.007 
21.007 
21.007 
21.006 
21.006 
21.005 
21.0O5 
21.005 
21.004 
21.004 
21.003 


5 

.024 

4 

.  637 

4 

.347 

4 

.  003 

-j 

.  656 

3 

.306 

2 

.952 

-. 

.595 

•y 

.235 

1 

.371 

1 

.504 

1 

.  133 

- 

.759 

- 

.381 

- 

.759 

- 

.721 

- 

.634 

- 

.  646 

- 

.603 

- 

.570 

- 

533 

- 

.495 

- 

.457 

- 

.419 

- 

.331 

- 

343 

- 

335 

- 

267 

- 

229 

- 

191 

- 

153 

- 

115 

- 

077 

- 

033 

- 

077 

- 

073 

- 

06-9 

- 

065 

- 

061 

- 

057 

- 

054 

- 

050 

- 

046 

- 

042 

- 

038 

-, 

034 
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9 

-34.865 

13.494 

-68.997 

1.201 

21.803 

-.031 

9 

-34.865 

13.494 

-68.997 

1.201 

21.003 

-.027 

9 

-34.865 

13.495 

-68.998 

1.201 

21.002 

-.023 

9 

-34.865 

13.495 

-68.998 

1.201 

21.002 

-.019 

9 

-34.865 

13.495 

-68.998 

1.201 

21.002 

-.015 

9 

-34.865 

13.496 

-63.999 

1.201 

21.001 

-.011 

9 

-34.365 

13.496 

-63.999 

1.201 

21.001 

-.003 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.004 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.003 

9 

-34.365 

13.496 

-68.999 

1.201 

21.001 

-.007 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.007 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.007 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.006 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.006 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.005 

9 

-34.365 

13.497 

-68.999 

1.201 

21.001 

-.005 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.005 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.004 

9 

-34.365 

13.497 

-69.000 

1.201 

21.000 

-.004 

9 

-34.365 

13.497 

-69.000 

1.201 

21.000 

-.003 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.003 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.003 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.002 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.002 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.002 

9 

-34.365 

13.497 

-69.000 

1.201 

21.000 

-.001 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.001 

9 

-34.865 

13.497 

-69.000 

1.201 

21.000 

-.000 

10 

-44. 118 

3.740 

-59.243 

0.000 

30.757 

-44. 118 

10 

-44.  118 

3.899 

-59.402 

.067 

30.598 

-43.620 

ie 

-44.  118 

4.071 

-59.574 

.  133 

30.426 

-43.076 

le 

-44.  118 

4.259 

-59.762 

.200 

30.238 

-42.432 

10 

-44. 118 

4.463 

-59.966 

.267 

30.034 

-41.329 

10 

-44. 118 

4.638 

-60. 191 

.334 

29.809 

-41.  109 

ie 

-44. 118 

4.935 

-60.433 

.400 

29.562 

-40.310 

ie 

-44. 118 

5.208 

-60.711 

.467 

29.289 

t39.420 

10 

-44. 118 

5.511 

-61.014 

.534 

28.986 

-38.423 

10 

-44. 118 

5.848 

-61.351 

.601 

28.649 

-37.298 

10 

-44. 118 

6.226 

-61.729 

.667 

28.271 

-36.021 

10 

-44. 118 

6.650 

-62. 153 

.734 

27.347 

-34.559 

10 

-44.  118 

7.  128 

-62.631 

.801 

27.369 

-32.373 

10 

-44. 118 

7.669 

-63. 172 

.868 

26.323 

-30.909 

10 

-44.  118 

8.283 

-63.786 

.934 

26.214 

-28.600 

10 

-44.  118 

8.978 

-64.481 

1.001 

25.519 

-25.356 

10 

-44. 118 

9.763 

-65.266 

1.068 

24.734 

-22.556 
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TABLE    A-III     (CONT) 


RflY 


BETA 


THETfKRAY) 


NORMAL 


flLPHfl2 


RHO    2 


10 

-44. 

118 

10.633 

-66. 141 

1.  134 

23.859 

-18.544 

10 

-44. 

118 

11.590 

-67.892 

1.201 

22.908 

-13.613 

10 

-44. 

118 

12.574 

-68.377 

1.268 

21.923 

-7.527 

10 

-44. 

113 

11.590 

-67.092 

1.201 

22.908 

-13.613 

10 

-44. 

118 

11.638 

-67. 191 

1.208 

22.809 

-13.066 

10 

-44. 

118 

11.736 

-67.289 

1.215 

22.711 

-12.501 

10 

-44. 

118 

11.384 

-67.387 

1.221 

22.613 

-11.925 

10 

-44. 

118 

11.983 

-67. 486 

1.228 

22.514 

-1  1.336 

10 

-44. 

113 

12.082 

-67.585 

1.235 

22.415 

-10.735 

10 

-44. 

113 

12. 181 

-67.684 

1.241 

22.316 

-10. 120 

10 

-44. 

US 

12.279 

-67.782 

1.248 

22.218 

-9.492 

10 

-44. 

113 

12.378 

-67.881 

1.253 

22. 119 

-8.851 

10 

-44. 

113 

12.476 

-67.979 

1.261 

22.021 

-8. 196 

10 

-44. 

118 

12.574 

-68.077 

1.268 

21.923 

-7.527 

10 

-44. 

113 

12.671 

-68. 174 

1.273 

21.326 

-6.843 

10 

-44. 

118 

12.767 

-68.270 

1.281 

21.730 

-6. 145 

10 

-44. 

113 

12.863 

-68.366 

1.288 

21.634 

-5.431 

10 

-44. 

118 

12.958 

-63.461 

1.295 

21.539 

-4.793 

10 

-44. 

118 

13.051 

-63.554 

1.301 

21.446 

-3.959 

10 

-44. 

113 

13. 144 

-68.647 

1.308 

21.353 

-3. 199 

10 

-44. 

118 

13.235 

-68.738 

1.315 

21.262 

-2.424 

10 

-44. 

118 

13.324 

-63.827 

1.321 

21.173 

-1.632 

10 

-44. 

113 

13.411 

-68.914 

1.328 

21.086 

-.324 

10 

-44. 

113 

13.324 

-68.827 

1.321 

21. 173 

-1.632 

10 

-44. 

118 

13.333 

-63.836 

1.322 

21. 164 

-1.552 

10 

-44. 

118 

13.342 

-68.845 

1.323 

21. 155 

-1.472 

10 

-44. 

118 

13.350 

-68.353 

1.323 

21. 147 

-1.392 

10 

-44. 

118 

13.359 

-68.862 

1.324 

21. 133 

-1.311 

10 

-44. 

118 

13.363 

-68.371 

1.325 

21. 129 

-1.230 

10 

-44. 

118 

13.377 

-68.380 

1.325 

21. 120 

-1. 149 

10 

-44. 

118 

13.385 

-68.388 

1.326 

21.  112 

-1.068 

10 

-44. 

113 

13.394 

-68.897 

1.327 

21. 103 

-.987 

10 

-44. 

118 

13.403 

-68.906 

1.327 

21.094 

-.906 

10 

-44. 

118 

13.411 

-68.914 

1.328 

21.086 

-.324 

10 

-44. 

118 

13.420 

-63.923 

1.329 

21.077 

-.743 

10 

-44. 

118 

13.429 

-68.932 

1.329 

21.068 

-.661 

10 

-44. 

118 

13.437 

-68.940 

1.330 

21.060 

-.579 

10 

-44. 

118 

13.446 

-68.949 

1.331 

21.051 

-.497 

10 

-44. 

118 

13.455 

-68.957 

1.331 

21.043 

-.414 

10 

-44. 

118 

13.463 

-68.966 

1.332 

21.034 

-.332 

10 

-44. 

118 

13.472 

-68.975 

1.333 

21.025 

-.249 

10 

-44. 

118 

13.480 

-68.983 

1.333 

21.017 

-.166 

10 

-44. 

113 

13.439 

-63.992 

1.334 

21.003 

-.083 

10 

-44. 

118 

13.480 

-68.983 

1.333 

21.017 

-.  166 

10 

-44. 

118 

13.481 

-68.984 

1.333 

21.016 

-.  158 

10 

-44. 

118 

13.482 

-68.985 

1.333 

21.013 

-.150 
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TABLE    A-III     CCONT) 


RflY 


BETA 


THETA<RflY> 


NORMAL 


ALPHA2 


RHO  2 


18 

-44. 113 

13.483 

-63.986 

1.334 

21.014 

-.  141 

19 

-44.  113 

13.483 

-68.986 

1.334 

21.014 

-.  133 

10 

-44.  113 

13.484 

-63.987 

1.334 

21.813 

-.  125 

10 

-44. 118 

13.485 

-68.988 

1.334 

21.012 

-.  116 

10 

-44. 118 

13.436 

-68.989 

1.334 

21.011 

-.  108 

10 

-44. 118 

13.48? 

-68.990 

1.334 

21.010 

-.  100 

10 

-44.  118 

13.438 

-68.991 

1.334 

21.009 

-.091 

10 

-44. 113 

13.489 

-68.992 

1.334 

21.003 

-.083 

10 

-44. 113 

13.489 

-63.992 

1.334 

21.008 

-.075 

10 

-44. 118 

13.490 

-68.993 

1.334 

21.007 

-.&67 

10 

-44. 118 

13.491 

-68.994 

1.334 

21.006 

-.058 

10 

-44. 118 

13.492 

-68.995 

1.334 

21.005 

-.050 

10 

-44. 118 

13.493 

-68.996 

1.334 

21.004 

-.042 

10 

-44.  113 

13.494 

-68.997 

1.334 

21.003 

-.033 

10 

-44.  118 

13.495 

-68.997 

1.334 

21.003 

-.025 

10 

-44.  113 

13.495 

-68.998 

1.335 

21.002 

-.017 

10 

-44. 118 

13.496 

-68.999 

1.335 

21.001 

-.008 

10 

-44. 113 

13.496 

-68.999 

1.335 

21.001 

-.008 

10 

-44. 118 

13.496 

-68.999 

1.335 

21.001 

-.007 

10 

-44. 113 

13.496 

-68.999 

1.335 

21.001 

-.007 

10 

-44. 113 

13.496 

-68.999 

1.335 

21.001 

-.006 

10 

-44.  113 

13.497 

-63.999 

1.335 

21.001 

-.005 

10 

-44.  113 

13.497 

-69.000 

1.335 

21.000 

-.004 

10 

-44. 118 

13.49? 

-69.000 

1.335 

21.000 

-.003 

10 

-44. 118 

13.497 

-69.000 

1.335 

21.000 

-.802 

10 

-44. 113 

13.497 

-69.000 

1.335 

21.000 

-.002 

10 

-44. 118 

13.497 

-69.000 

1.335 

21.000 

-.001 
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TABLE  A-IV 

SECOND  SURFACE  COORDINATE  (X,Y)  VALUES,  S,  ALPHA2  AND 
RH02  FOR  THE  FAMILY  OF  SURFACES  IN  FIGURES  17  AND  18. 
THE  COLUMN  LABELED  BEGIN  RAY  CORRESPONDS  TO  THE  FAMILY 
MEMBER. 


Be 


Begi  n 

SAY 


Next 
RAY 


Xsurf 
(next ) 


Ysurf 
(next  > 


S 

(next ) 


fll  pha2 
(next ) 


RHO    2 
(next  > 


1 

.362 

.808 

.  133 

21.000 

-.088 

2 

.649 

.  118 

.  133 

21.201 

-1.388 

3 

.935 

.221 

.  132 

21.466 

-4. 122 

4 

1.228 

.333 

.  138 

21.324 

-6.331 

5 

1.584 

.447 

.  125 

22.321 

-10. 147 

6 

1.7S6 

.563 

.  118 

23.024 

-14.262 

7 

2.367 

.682 

.  187 

24.043 

-19.425 

8 

2.344 

.885 

.898 

25.538 

-25.934 

9 

2.616 

.936 

.866 

27.707 

-34.070 

13 

2.332 

1.876 

.838 

30.638 

-43.901 

2 

2 

.724 

.880 

.267 

21.281 

-.008 

2 

3 

1.818 

.111 

.266 

21.228 

-2. 125 

2 

4 

1.296 

.222 

.265 

21.538 

-4.693 

2 

5 

1.581 

.334 

.262 

21.973 

-7.378 

2 

6 

1.365 

.449 

.256 

22.683 

-11.368 

2 

7 

2.  146 

.566 

.248 

23.542 

-16.978 

2 

8 

2.425 

.637 

.234 

24.971 

-23.577 

2 

9 

2.699 

.815 

.212 

27. 147 

-32.074 

2 

13 

2.967 

.933 

.  179 

38.300 

-42.677 

3 

3 

1.886 

.888 

.488 

21.228 

-.000 

3 

4 

1.372 

.  Ill 

.399 

21.262 

-2.420 

3 

5 

1.658 

.222 

.398 

21.633 

-5.420 

3 

6 

1.943 

.335 

.394 

22. 130 

-9.231 

3 

7 

2.226 

.458 

.388 

23.821 

-14.243 

3 

3 

2.586 

.578 

.377 

24.354 

-20.865 

3 

9 

2.782 

.695 

.358 

26.582 

-29.695 

3 

18 

3.352 

.829 

.329 

29.826 

-41. 164 

4 

4 

1.449 

.888 

.334 

21.262 

-.000 

4 

3 

1.734 

.111 

.532 

21.307 

-2.310 

4 

6 

2.828 

.223 

.531 

21.766 

-6.414 

4 

7 

2.384 

.336 

.527 

22.493 

-11.203 

4 

3 

2.386 

.453 

.518 

23.698 

-17.757 

4 

9 

2.864 

.573 

.584 

25.766 

-26.849 

4 

18 

3.136 

.786 

.478 

29.242 

-39.268 

5 

5 

1.811 

.888 

.667 

21.307 

-.000 

5 

6 

2.896 

.111 

.666 

21.371 

-3.349 

3 

7 

2.382 

.223 

.664 

21.978 

-7.849 

3 

8 

2.663 

.337 

.658 

23.811 

-14. 189 

5 

9 

2.946 

.457 

.647 

24.932 

-23.412 

5 

18 

3.228 

.584 

.626 

28.518 

-36.832 

2.173 


088 


.381 


21.371 


000 
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TABLE  A- IV  (CONT) 


Begin    Next      Xsurf         Ysurf  S        A1pha2       RHO  2 

Surf     Surf      (next)        <next)       (next)     (next)       (next) 


6 

7 

2.458 

.112 

.799 

21.469 

-4. 143 

6 

8 

2.743 

.224 

.796 

22.313 

-10.099 

6 

9 

3.026 

.340 

.789 

24.002 

-19.227 

6 

Id 

3.303 

.463 

.773 

27.578 

-33.615 

7 

7 

2.S35 

.000 

.934 

21.469 

-.000 

7 

3 

2.820 

.  112 

.932 

21.634 

-5.429 

7 

9 

3.  105 

.225 

.928 

22.996 

-14. 107 

7 

19 

3.385 

.344 

.917 

26.373 

-29.225 

S 

3 

2.397 

.000 

1.068 

21.634 

-.000 

s 

9 

3.  182 

.  113 

1.064 

21.971 

-7.855 

8 

10 

3.465 

.227 

1.059 

24.343 

-23.029 

9 

9 

3.259 

.000 

1.201 

21.971 

-.000 

9 

10 

3.543 

.  114 

1.  196 

22.986 

-14.051 

0 

10 

3.622 

.000 

1.335 

22.986 

-.001 
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TABLE  A-V 

COMPARISON  OF  THE  MAXIMUM  ALLOWED'  LENGTH  OF  THE  RAY  IN 

THE  LENS  QA  AND  THE  ACTUAL  VALUE  USED  SM,  ,  FOR  EACH 

MAX 
SURFACE  IN  FIGURES  17  AND  18.   ALPHA2  AND  RH02  ARE  THE 

VALUES  AT  S„,v. 
MAX 


RflY         Qfl         3m ax        fllpha2         RHO  2 


1 

.  133 

.  133 

21.000 

-.000 

2 

.26? 

.267 

21.201 

-.000 

3 

.400 

.400 

21.228 

-.000 

4 

.534 

.534 

21.262 

-.000 

5 

.667 

.667 

21.30? 

-.000 

6 

.801 

.301 

21.371 

-.000 

7 

.934 

.934 

21.469 

-.000 

a 

1.068 

1.068 

21.634 

-.000 

9 

1.281 

1.201 

21.971 

-.000 

la 

1.335 

1.335 

22.986 

-.001 
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TABLE  A-VI 

CALCULATED  VALUES  OF  S  AND  ALPHA2  USED  TO  CONSTRUCT 
THE  DESIGN  CHART  IN  FIGURE  19  FOR  THE  FINAL  DESIGN 
OF  SURFACE  NUMBER  1  in  FIGURE   20. 


RftY 


BETA 


THETFKRflY) 


NORMAL 


ALPHA2 


RHO    2 


1       -1.697 

13.317 

-68.320 

8.000 

21. 180 

-1.697 

1       -1.697 

13.326 

-68.329 

.007 

21. 171 

-1.614 

1       -1.697 

13.335 

-68.338 

.013 

21. 162 

-1.530 

1       -1.697 

13.344 

-68.847 

.020 

21. 153 

-1. 447 

1       -1.697 

13.354 

-68.856 

.027 

21. 144 

- 1 . 363 

1       -1.697 

13.363 

-68.366 

.033 

21. 134 

-1.279 

t       -1.697 

13.372 

-68.875 

.040 

21. 125 

-1. 195 

1       -1.697 

13.381 

-63.884 

.047 

21.  116 

-1.111 

1       -1.697 

13.390 

-63.393 

.053 

21. 107 

-1.027 

1       -1.697 

13.399 

-63.902 

.060 

21.098 

-.942 

1       -1.697 

13.408 

-68.911 

.067 

21.089 

-.357 

1       -1.697 

13.417 

-68.920 

.073 

21.080 

-.772 

1       -1.697 

13.426 

-63.929 

.080 

21.071 

-.687 

1       -1.697 

13.435 

-68.938 

.087 

21.062 

-.602 

1       -1.697 

13.444 

-68.947 

.093 

21.053 

-.517 

1       -1.697 

13.453 

-68.956 

.  100 

21.844 

-.431 

1       -1.697 

13.462 

-68.965 

.  107 

21.035 

-.345 

1       -1.697 

13.471 

-68.974 

.  113 

21.826 

-.259 

1       -1.697 

13.479 

-68.982 

.  120 

21.013 

-.  173 

1       -1.697 

13.488 

-68.991 

.  127 

21.009 

-.087 

1       -1.697 

13.479 

-68.982 

.  120 

21.013 

-.  173 

1       -1.697 

13.480 

-68.983 

.  121 

21.017 

-.  164 

1       -1.697 

13.481 

-68.984 

.  121 

21.016 

-.  156 

1       -1.697 

13.482 

-68.985 

.  122 

21.015 

-.  147 

1       -1.697 

13.483 

-68.986 

.  123 

21.014 

-.  133 

1       -1.697 

13.484 

-68.987 

.  123 

21.013 

-.  130 

1       -1.697 

13.485 

-68.988 

.  124 

21.012 

-.  121 

1       -1.697 

13.486 

-63.989 

.  125 

21.011 

-.  112 

1       -1.697 

13.436 

-68.989 

.125 

21.011 

-.  104 

1       -1.697 

13.487 

-68.990 

.126 

21.010 

-.095 

1       -1.697 

13.488 

-68.991 

.127 

21.009 

-.837 

1       -1.697 

13.489 

-68.992 

.127 

21.008 

-.073 

1       -1.697 

13.490 

-68.993 

.128 

21.007 

-.069 

1       -1.697 

13.491 

-68.994 

.  129 

21.006 

-.061 

1       -1.697 

13.492 

-68.995 

.  129 

21.005 

-.052 

1       -1.697 

13.493 

-68.996 

.  130 

21.004 

-.043 

1       -1.697 

13.494 

-68.996 

.  131 

21.004 

-.035 

1       -1.697 

13.494 

-68.997 

.  131 

21.003 

"  -.026 

1       -1.697 

13.495 

-63.998 

.  132 

21.002 

-.017 

I       -1.697 

13.496 

-68.999 

.  133 

21.001 

-.009 

I       -1.697 

13.495 

-68.998 

.  132 

21.002 

-.017 

1       -1.697 

13.495 

-68.998 

.  132 

21.002 

-.016 

1       -1.697 

13.495 

-63.998 

.  132 

21.002 

-.016 

1       -1.697 

13.496 

-68.999 

.  132 

21.001 

-.015 

1       -1.697 

13.496 

-68.999 

.  132 

21.001 

-.014 

1       -1.697 

13.496 

-68.999 

.  132 

21.001 

-.013 
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TABLE    A-VI     CCONT) 


RAY 


BETA 


THETAcRAY) 


NORMAL 


ALPHA2 


RHO    2 


-1.69? 

13.496 

-63.999 

.  133 

21.001 

-.012 

-1.697 

13.496 

-63.999 

.  133 

21.001 

-.311 

-1.697 

13.496 

-63.999 

.  133 

21.001 

-.010 

-1.69? 

13.496 

-63.999 

.  133 

21.001 

-.010 

-1.697 

13.496 

-68.999 

.  133 

21.801 

-.009 

-1.697 

13.496 

-68.999 

.  133 

21.001 

-.003 

-1.697 

13.496 

-68.999 

.  133 

21.001 

-.007 

-1.697 

13.496 

-68.999 

.  133 

21.001 

-.006 

-1.697 

13.497 

-68.999 

.  133 

21.001 

-.005 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.004 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.003 

-1.697 

13.49? 

-69.000 

.  133 

21.O00 

-.003 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.002 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.002 

-1.697 

13.497 

-69.800 

.  133 

21.000 

-.002 

-1.697 

13.49? 

-69.000 

.  133 

21.000 

-.002 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.49? 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.69? 

13.497 

-69.000 

.  133 

21.000 

-.001 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.000 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.000 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.000 

-1.69? 

13.497 

-69.000 

.  133 

21.000 

-.000 

-1.697 

13.497 

-69.000 

.  133 

21.000 

-.000 

2 

-2.373 

13.241 

-68.743 

0.000 

21.257 

-2.373 

2 

-2.373 

13.254 

-68.757 

.009 

21.243 

-2.253 

2 

-2.373 

13.267 

-68.770 

.018 

21.230 

-2. 142 

2 

-2.373 

13.230 

-68.783 

.027 

21.217 

-2.026 

2 

-2.373 

13.293 

-63.796 

.036 

21.204 

-1.910 

2 

-2.373 

13.306 

-68.809 

.045 

21. 191 

-1.793 

2 

-2.373 

13.319 

-63.822 

.054 

21. 178 

-1.676 

2 

-2.373 

13.332 

-68.835 

.064 

21. 165 

-1.553 

2 

-2.373 

13.345 

-68.343 

.073 

21.152 

-1.441 

2 

-2.373 

13.358 

-63.861 

.082 

21. 139 

-1.323 

2 

-2.373 

13.371 

-68.874 

.091 

21. 126 

-1.204 
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TABLE    A-VI     CCONTJ 


RAY 


BETA 


THETA<RAY> 


NORMAL 


ALPHA2 


RHO  2 


2 

-2.373 

13.384 

-63.337 

.  100 

21.113 

-1.035 

2 

-2.373 

13.396 

-68.399 

.  109 

21. 101 

- .  966 

2 

-2.373 

13.409 

-68.912 

.  118 

21.088 

-.347 

2 

-2.373 

13.422 

-68.925 

.  127 

21.075 

-.727 

2 

-2.373 

13.434 

-63.937 

.  136 

21.063 

-.  6Q6 

2 

-2.373 

13.447 

-68.950 

.  145 

21.050 

-.486 

2 

-2.373 

13.460 

-68.963 

.  154 

21.037 

-.365 

2 

-2.373 

13.472 

-63.975 

.  163 

21.025 

-.244 

2 

-2.373 

13.485 

-68.938 

.  172 

21.012 

-.  122 

2 

-2.373 

13.497 

-69.000 

.  132 

21.000 

-.000 

2 

-2.373 

13.485 

-68.988 

.  172 

21.012 

-.  122 

2 

-2.373 

13.486 

-68.989 

.173 

21.011 

-.  110 

2 

-2.373 

13.487 

-68.990 

.  174 

21.010 

-.098 

2 

-2.373 

13.488 

-68.991 

.  175 

21.009 

-.035 

2 

-2.373 

13.490 

-68.993 

.  176 

21.007 

-.073 

2 

-2.373 

13.491 

-68.994 

.  177 

21.006 

-.061 

2 

-2.373 

13.492 

-68.995 

.  178 

21.005 

-.049 

2 

-2.373 

13.493 

-68.996 

.  179 

21.004 

-.037 

2 

-2.373 

13.495 

-63.998 

.  180 

21.002 

-.024 

2 

-2.373 

13.496 

-68.999 

.  181 

21.001 

-.012 

2 

-2.373 

13.497 

-69.000 

.  182 

21.000 

-.000 

2 

-2.373 

13.496 

-63.999 

.  181 

21.001 

-.012 

2 

-2.373 

13.496 

-68.999 

.  181 

21.001 

-.011 

2 

-2.373 

13.496 

-68.999 

.  181 

21.001 

-.010 

2 

-2.373 

13.496 

-63.999 

.  131 

21.001 

-.009 

2 

-2.373 

13.496 

-68.999 

.  131 

21.001 

-.007 

2 

-2.373 

13.496 

-68.999 

.  181 

21.001 

-.006 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.005 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.004 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.002 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.001 

2 

-2.373 

13.497 

-69.000 

.  132 

21.000 

-.000 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.001 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.301 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.001 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.001 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.001 

2 

-2.373 

13.497 

-69.000 

.  131 

21.000 

'  -.001 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.000 

2 

-2.373 

13.497 

-69.000 

.  181 

21.000 

-.000 

2 

-2.373 

13.497 

-69.000 

.  182 

21.000 

-.000 

2 

-2.373 

13.497 

-69.000 

.  182 

21.000 

-.000 

3 

-3.038 

13.157 

-68.660 

0.000 

21.340 

-3.083 

3 

-3.088 

13. 175 

-63.678 

.011 

21.322 

-2.939 

3 

-3.083 

13. 192 

-63.695 

.023 

21.305 

-2.790 
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TABLE    A-VI     (CONT) 


RAY 


BETA 


THETA<RAY) 


NORMAL 


ALPHA2 


RHO    2 


3 

-3.088 

13.210 

-68.713 

.034 

21.287 

-2.640 

3 

-3.088 

13.227 

-63.730 

.046 

21.270 

-2.490 

3 

-3.088 

13.244 

-68.747 

.057 

21.253 

-2.339 

3 

-3.088 

13.262 

-68.765 

.069 

21.235 

-2. 187 

3 

-3.038 

13.279 

-68.782 

.080 

21.218 

-2.035 

3 

-3.088 

13.296 

-68.799 

.092 

21.201 

-1.832 

3 

-3.088 

13.313 

-63.316 

.  103 

21. 184 

-1.723 

3 

-3.088 

13.330 

-68.833 

.  115 

21. 167 

-1.574 

3 

-3.088 

13.347 

-63.350 

.  126 

21. 150 

-1.420 

3 

-3.088 

13.364 

-68.867 

.133 

21. 133 

-1.264 

3 

-3.088 

13.381 

-68.834 

.149 

21.116 

-1. 103 

3 

-3.088 

13.398 

-68.901 

.  161 

21.099 

-.952 

3 

-3.088 

13.415 

-63.913 

.172 

21.082 

-.795 

3 

-3.083 

13.431 

-68.934 

.  134 

21.066 

-.637 

3 

-3.088 

13.448 

-68.951 

.  195 

21.049 

-.479 

3 

-3.088 

13.464 

-68.967 

.207 

21.033 

-.328 

3 

-3.088 

13.481 

-63.984 

.218 

21.016 

-.  160 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.481 

-63.984 

.218 

21.016 

-.  160 

3 

-3.088 

13.482 

-63.985 

.219 

21.015 

-.  144 

3 

-3.083 

13.484 

-63.987 

.220 

21.013 

-.  128 

3 

-3.088 

13.486 

-63.989 

.222 

21.011 

-.  112 

3 

-3.088 

13.487 

-68.990 

.223 

21.010 

-.096 

3 

-3.088 

13.439 

-68.992 

.224 

21.008 

-.080 

3 

-3.088 

13.491 

-68.993 

.225 

21.007 

-.064 

3 

-3.088 

13.492 

-63.995 

.226 

21.005 

-.048 

3 

-3.083 

13.494 

-63.997 

.227 

21.003 

-.032 

3 

-3.088 

13.495 

-68.998 

.228 

21.002 

-.  016 

3 

-3.088 

13.495 

-68.998 

.223 

21.002 

-.016 

3 

-3.088 

13.496 

-68.999 

.229 

21.001 

-.014 

3 

-3.083 

13.496 

-68.999 

.229 

21.001 

-.013 

3 

-3.088 

13.496 

-63.999 

.229 

21.001 

-.011 

3 

-3.088 

13.496 

-68.999 

.229 

21.001 

-.010 

3 

-3.088 

13.496 

-68.999 

.229 

21.001 

-.008 

3 

-3.088 

13.496 

-68.999 

.229 

21.001 

-.006 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

-.005 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

.  -.003 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

-.002 

3 

-3.083 

13.497 

-69.000 

.230 

21.000 

-.000 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

-.002 

3 

-3.888 

13.497 

-69.000 

.229 

21.000 

-.001 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

-.001 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

-.001 

3 

-3.088 

13.497 

-69.000 

.229 

21.000 

-.001 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.001 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.001 
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TABLE  A-VI  (CONT) 


RAY       BETA         THETA<RAY)     NORMAL         S  ALPHA2         RHO  2 


3 

-3.088 

13.49? 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.083 

13.497 

-69.000 

.230 

21.000 

-.000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.083 

13.497 

-69.000 

.230 

21.000 

-.000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.49? 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.000 

3 

-3.088 

13.497 

-69.000 

.230 

21.000 

-.  000 

4 

-3.343 

13.065 

-63.568 

0.000 

21.432 

-3.345 

4 

-3.345 

13.088 

-68.591 

.014 

21.409 

-3.662 

4 

-3.843 

13.  110 

-68.613 

.028 

21.387 

-3.473 

4 

-3.345 

13. 133 

-68.636 

.042 

21.364 

-3.293 

4 

-3.345 

13. 155 

-68. 658 

.056 

21.342 

-3. 10? 

4 

-3.845 

13. 17? 

-68.630 

.069 

21.320 

-2.920 

4 

-3.845 

13. 199 

-63.702 

.083 

21.298 

-2.732 

4 

-3.845 

13.221 

-63.724 

.09? 

21.276 

-2.543 

4 

-3.845 

13.243 

-68.746 

.111 

21.234 

-2.353 

4 

-3.845 

13.265 

-63.768 

.  125 

21.232 

-2. 162 

4 

-3.845 

13.236 

-68.789 

.  139 

21.211 

-1.970 

4 

-3.345 

13.308 

-68.811 

.  153 

21. 139 

-1.773 

4 

-3.345 

13.329 

-68.332 

.  167 

21. 163 

-1.534 

4 

-3.845 

13.351 

-68.854 

.  130 

21. 146 

-1. 389 

4 

-3.845 

13.372 

-63.375 

.  194 

21. 123 

-1. 194 

4 

-3.845 

13.393 

-68.896 

.208 

21. 104 

-.997 

4 

-3.845 

13.414 

-68.917 

.222 

21.083 

-.300 

4 

-3.345 

13.435 

-68.938 

.236 

21.062 

-.601 

4 

-3.845 

13.456 

-68.959 

.250 

21.041 

-.402 

4 

-3.845 

13.476 

-68.979 

.264 

21.021 

-.201 

4 

-3.845 

13.476 

-68.979 

.264 

21.021 

-.201 

4 

-3.845 

13.479 

-68.982 

.265 

21.013 

-.131 

4 

-3.845 

13.481 

-68.934 

.267 

21.016 

-.  161 

4 

-3.845 

13.483 

-68.986 

.268 

21.014 

-.  141 

4 

-3.845 

13.483 

-63.988 

.269 

21.012 

-.  121 

4 

-3.345 

13.487 

-63.990 

.271 

21.010 

-.  101 

4 

-3.845 

13.489 

-68.992 

.272 

21.008 

-.081 

4 

-3.845 

13.491 

-68.994 

.273 

21.006 

-.061 

4 

-3.345 

13.493 

-68.996 

.275 

21.004 

-.040 

4 

-3.845 

13.495 

-63.998 

.276 

21.002 

-.020 

4 

-3.845 

13.493 

-63.993 

.276 

21.002 

-.020 
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TABLE   A-VI     (CONT) 


RAY 


BETA 


THETA<RAY> 


NORMAL 


ALPHA2 


RHO  2 


4 

-3.843 

13.495 

-68.998 

.276 

21.002 

-.018 

4 

-3.345 

13.495 

-68.998 

.277 

21.002 

-.016 

4 

-3.343 

13.496 

-68.999 

.  277 

21.001 

-.014 

4 

-3.845 

13.496 

-63.999 

.27? 

21.001 

-.012 

4 

-3.345 

13.496 

-68.999 

.277 

21.001 

-.010 

4 

-3.845 

13.496 

-68.999 

.277 

21.001 

-.008 

4 

-3.845 

13.496 

-68.999 

.277 

21.001 

-.006 

4 

-3.845 

13.49? 

-69.080 

.277 

21.000 

-.004 

4 

-3.345 

13.49? 

-69.000 

.277 

21.000 

-.  002 

4 

-3.845 

13.497 

-69.000 

.277 

21.000 

-.002 

4 

-3.845 

13.497 

-69.000 

.277 

21.000 

-.002 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.002 

4 

-3.845 

13.49? 

-69.000 

.273 

21.000 

-.001 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.001 

4 

-3.845 

13.497 

-69.000 

.273 

21.000 

-.  001 

4 

-3.845 

13.497 

-69.000 

.273 

21.000 

-.001 

4 

-3.345 

13.497 

-69.000 

.278 

21.000 

-.001 

4 

-3.345 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.345 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.845 

13.49? 

-69.000 

.273 

21.000 

-.  000 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.845 

13.49? 

-69.000 

.273 

21.000 

-.  000 

4 

-3.345 

13.497 

-69.000 

.278 

21.000 

-.000 

4 

-3.845 

13.49? 

-69.000 

.278 

21.000 

-.000 

4 

-3.345 

13.497 

-69.000 

.278 

21.000 

-.  000 

4 

-3.845 

13.497 

-69.000 

.278 

21.000 

-.000 

3 

-4.649 

12.965 

-68.468 

0.000 

21.532 

-4.649 

5 

-4.649 

12.993 

-68.496 

.016 

21.504 

-4.430 

3 

-4.649 

13.020 

-68.523 

.033 

21.477 

-4.209 

3 

-4.649 

13.048 

-68.551 

.049 

21.449 

-3.987 

3 

-4.649 

13.075 

-68.578 

.065 

21.422 

-3.764 

3 

-4.649 

13.103 

-63.606 

.081 

21.394 

-3.539 

3 

-4.649 

13.  130 

-68.633 

.098 

21.367 

-3.313 

5 

-4,649 

13.15? 

-68.660 

.114 

21.340 

-3.086 

3 

-4.649 

13. 134 

-68.637 

.  130 

21.313 

-2.857 

3 

-4.649 

13.211 

-63.714 

.  147 

21.286 

-2.627 

3 

-4.649 

13.238 

-68.741 

.  163 

21.259 

-2.395 

3 

-4.649 

13.265 

-68.763 

.  179 

21.232 

-2. 162 

3 

-4.649 

13.291 

-63.794 

.  195 

21.206 

-1.927 

3 

-4.649 

13.317 

-63.820 

.212 

21.  130 

-1.692 

5 

-4.649 

13.344 

-68.84? 

.223 

21. 153 

-1.454 

3 

-4.649 

13.370 

-63.373 

.244 

21. 127 

-1.216 
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TABLE    A- VI     (CONT) 


RAY 


BETA 


THETA(RAY) 


NORMAL 


ALPHA2 


RHO    2 


3 

-4.649 

13.395 

-68.898 

.261 

21. 102 

-.975 

3 

-4.649 

13.421 

-68.924 

.277 

21.076 

-.734 

5 

-4.649 

13.447 

-68.950 

.293 

21.050 

-.491 

5 

-4.649 

13.472 

-68.975 

.309 

21.025 

-.246 

3 

-4.649 

13.472 

-68.975 

.309 

21.025 

-.246 

5 

-4.649 

13.474 

-68.977 

.311 

21.023 

-.221 

5 

-4.649 

13.477 

-68.980 

.313 

21.020 

-.  197 

5 

-4.649 

13.479 

-68.982 

.314 

21.013 

-.  172 

3 

-4.649 

13.482 

-63.935 

.316 

21.015 

-.  143 

5 

-4.649 

13.484 

-63.987 

.318 

21.013 

-.123 

5 

-4.649 

13.487 

-68.990 

.319 

21.010 

-.099 

3 

-4.649 

13.490 

-68.992 

.321 

21.008 

-.074 

5 

-4.649 

13.492 

r63.995 

.322 

21.005 

-.049 

5 

-4.649 

13.495 

-68.997 

.324 

21.003 

-.025 

5 

-4.649 

13.492 

-63.995 

.322 

21.005 

-.049 

5 

-4.649 

13.492 

-68.995 

.323 

21.005 

-.047 

5 

-4.649 

13.493 

-68.995 

.323 

21.005 

-.044 

5 

-4.649 

13.493 

-68.996 

.323 

21.004 

-.042 

5 

-4.649 

13.493 

-68.996 

.323 

21.004 

-.039 

3 

-4.649 

13.493 

-63.996 

.323 

21.004 

-.037 

3 

-4.649 

13.494 

-68.996 

.323 

21.004 

-.035 

5 

-4.649 

13.494 

-63.997 

.324 

21.003 

-.032 

3 

-4.649 

13.494 

-68.997 

.324 

21.003 

-.030 

5 

-4.649 

13.494 

-63.997 

.324 

21.003 

-.027 

5 

-4.649 

13.495 

-68.997 

.324 

21.003 

-.025 

3 

-4.649 

13.495 

-68.998 

.324 

21.002 

-.022 

5 

-4.649 

13.495 

-68.998 

.324 

21.002 

-.020 

3 

-4.649 

13.495 

-63.998 

.323 

21.002 

-.017 

5 

-4.649 

13.496 

-68.998 

.325 

21.002 

-.015 

3 

-4.649 

13.496 

-68.999 

.325 

21.001 

-.012 

5 

-4.649 

13.496 

-68.999 

.323 

21.001 

-.010 

3 

-4.649 

13.496 

-68.999 

.325 

21.001 

-.007 

5 

-4.649 

13.497 

-68.999 

.325 

21.001 

-.005 

5 

-4.649 

13.497 

-69.900 

.326 

21.000 

-.002 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.002 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.002 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

.  -.002 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.002 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.001 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.001 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.001 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.001 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 
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5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.008 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

3 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.  000 

5 

-4.649 

13.497 

-69.000 

.326 

21.000 

-.000 

6 

-3.592 

12.354 

-68.357 

0.000 

21.643 

-5.582 

6 

-5.502 

12.383 

-63.390 

.019 

21.610 

-5.246 

6 

-5.502 

12.921 

-68.424 

.037 

21.576 

-4.987 

6 

-5.502 

12.955 

-68.458 

.856 

21.542 

-4. 727 

6 

-5.302 

12.988 

-63.491 

.073 

21.509 

-4.465 

6 

-5.502 

13.021 

-63.524 

.093 

21.476 

-4.201 

6 

-3.502 

13.054 

-63.557 

.  112 

21.443 

-3.935 

6 

-3.502 

13.087 

-68.590 

.  131 

21.410 

-3.667 

6 

-5.502 

13. 120 

-63.623 

.  149 

21.377 

-3.397 

6 

-5.502 

13. 153 

-68.656 

.168 

21.344 

-3. 125 

6 

-5.502 

13. 185 

-68.688 

.  187 

21.312 

-2.351 

6 

-5.502 

13.217 

-68.720 

.206 

21.280 

-2.576 

6 

-5.302 

13.249 

-63.752 

.224 

21.243 

-2.298 

6 

-5.502 

13.281 

-68.784 

.243 

21.216 

-2.018 

6 

-5.502 

13.313 

-68.315 

.262 

21. 185 

-1.736 

6 

-3.502 

13.344 

-68.847 

.230 

21. 153 

-1.451 

6 

-5.502 

13.375 

-68.378 

.299 

21. 122 

-1. 165 

6 

-5.502 

13.406 

-63.909 

.318 

21.091 

-.877 

6 

-5.502 

13.437 

-68.939 

.336 

21.061 

-.587 

6 

-3.502 

13.467 

-68.970 

.355 

21.030 

-.294 

6 

-5.502 

13.437 

-68.939 

.336 

21.061 

-.587 

6 

-5.502 

13.440 

-63.943 

.338 

21.057 

-.558 

6 

-3.502 

13.443 

-68.946 

.340 

21.034 

-.529 

6 

'-5.502 

13.446 

-68.949 

.342 

21.051 

-.499 

6 

-5.502 

13.449 

-68.952 

.344 

21.048 

-.470 

6 

-5.302 

13.452 

-63.955 

.346 

21.045 

-.441 

6 

-5.502 

13.455 

-68.958 

.348 

21.042 

-.412 
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6 

-5.502 

13.458 

-63.961 

.349 

21.039 

-.382 

6 

-5.502 

13.461 

-68.964 

.351 

21.036 

-.353 

6 

-5.502 

13.464 

-63.967 

.353 

21.03  3 

-.  324 

6 

-5.502 

13.467 

-68.970 

.355 

21.030 

-.294 

6 

-5.502 

13.470 

-63.973 

.357 

21.027 

-.265 

6 

-5.502 

13.473 

-68.976 

.359 

21.024 

-.236 

6 

-5.502 

13.476 

-68.979 

.361 

21.021 

-.206 

6 

-5.502 

13.479 

-68.982 

.363 

21.018 

-.  177 

6 

-5.502 

13.482 

-68.985 

.364 

21.015 

-.  147 

6 

-5.502 

13.485 

-68.988 

.366 

21.012 

-.  113 

6 

-3.502 

13.488 

-68.991 

.368 

21.009 

-.039 

6 

-3.502 

13.491 

-68.994 

.370 

21.006 

-.059 

6 

-5.502 

13.494 

-68.997 

.372 

21.003 

-.030 

6 

-5.502 

13.491 

-68.994 

.370 

21.006 

-.059 

6 

-5.502 

13.491 

-68.994 

.370 

21.006 

-.056 

6 

-5.502 

13.492 

-68.995 

.370 

21.005 

-.053 

6 

-5.502 

13.492 

-68.995 

.371 

21.0O5 

-.050 

6 

-5.502 

13.492 

-63.995 

.371 

21.005 

-.  047 

6 

-5.502 

13.493 

-63.995 

.371 

21.005 

-.  044 

6 

-5.502 

13.493 

-63.996 

.371 

21.004 

-.041 

6 

-5.502 

13.493 

-68.996 

.371 

21.004 

-.038 

6 

-5.502 

13.493 

-68.996 

.371 

21.004 

-.035 

6 

-3.502 

13.494 

-68.997 

.372 

21.003 

-.032 

6 

-5.502 

13.494 

-68.997 

.372 

21.003 

-.030 

6 

-5.502 

13.494 

-63.997 

.372 

21.003 

-.027 

6 

-3.502 

13.495 

-68.998 

.372 

21.O02 

-.  024 

6 

-5.502 

13.495 

-68.998 

.372 

21.002 

-.021 

6 

-5.502 

13.493 

-63.998 

.373 

21.002 

-.013 

6 

-3.502 

13.496 

-68.999 

.373 

21.001 

-.015 

6 

-3.502 

13.496 

-68.999 

.373 

21.001 

-.012 

6 

-5.502 

13.496 

-63.999 

.373 

21.001 

-.009 

6 

-3.302 

13.496 

-63.999 

.373 

21.001 

-.  006 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.003 

6 

-3.302 

13.496 

-63.999 

.373 

21.0O1 

-.006 

6 

-5.502 

13.496 

-68.999 

.373 

21.001 

-.  006 

6 

-5.502 

13.496 

-63.999 

.373 

21.001 

-.005 

6 

-3.502 

13.497 

-68.999 

.373 

21.001 

.  -.005 

S 

-5.502 

13.497 

-69.000 

.373 

21.000 

-.005 

6 

-3.502 

13.497 

-69.000 

.373 

21.OO0 

-.004 

6 

-5.502 

13.497 

-69.000 

.373 

21.000 

-.  004 

6 

-3.502 

13.497 

-69.000 

.373 

21.000 

-.  004 

6 

-3.502 

13.497 

-69.000 

.373 

21.000 

-.004 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.003 

6 

-3.302 

13.497 

-69.000 

.374 

21.000 

-.003 

6 

-3.502 

13.497 

-69.000 

.374 

21.000 

-.003 

6 

-5.502 

13.497 

-69.000 

.374 

21.O00 

-.002 
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6 

-5.592 

13.497 

-69.000 

.374 

21.000 

-.002 

6 

-5.592 

13.49? 

-69.000 

.374 

21.000 

-.002 

6 

-5.502 

13.49? 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.49? 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-3.502 

13.497 

-69.000 

.374 

21.0O0 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.001 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.49? 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.49? 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.49? 

-69.000 

.374 

21.000 

-.000 

6 

-5.302 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.49? 

-69.000 

.374 

21.800 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.0O0 

-.000 

6 

-3.502 

13.497 

-69.000 

.374 

21.008 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-3.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.497 

-69.000 

.374 

21.000 

-.000 

6 

-5.502 

13.49? 

-69.000 

.374 

21.000 

-.000 

6 

-5.302 

13.497 

-69.000 

.374 

21.000 

-.000 

7 

-6.409 

12.731 

-68.234 

0.000 

21.766 

-6.409 

7 

-6.409 

12.772 

-68.274 

.021 

21.726 

-6.  115 

7 

-6.409 

12.312 

-63.315 

.042 

21.683 

-5.31? 

7 

-6.409 

12.332 

-63.355 

.063 

21.645 

-5.513 

7 

-6.409 

12.392 

-63.394 

.084 

21.606 

-5.215 

7 

-6.409 

12.931 

-68.434 

.  105 

21.566 

-4.910 

7 

-6.409 

12.971 

-63.474 

.  127 

21.526 

-4.602 

7 

-6.409 

13.010 

-63.513 

.  148 

21.48? 

-4.292 

7 

-6.409 

13.049 

-68.552 

.  169 

21.448 

-3.973 

7 

-6.409 

13.038 

-68.591 

.  190 

21.409 

-3. 662 

7 

-6.409 

13. 126 

-63.629 

.211 

21.371 

-3.343 

7 

-6.409 

13. 165 

-69. 668 

.232 

21.332 

-3.022 

7 

-6.409 

13.203 

-63.706 

.253 

21.294 

-2.697 

7 

-6.409 

13.241 

-68.744 

.274 

21.256 

-2.370 

7 

-6.409 

13.278 

-68.731 

.293 

21.219 

-2.040 

7 

-6.409 

13.316 

-68.819 

.316 

21. 181 

-1.707 

7 

-6.409 

13.353 

-68.856 

.337 

21. 144 

-1.372 
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7 

-6.409 

13.389 

-68.892 

.359 

21. 103 

-1.033 

7 

-6.409 

13.426 

-68.928 

.380 

21.072 

-.692 

7 

-6.409 

13.461 

-68.964 

.401 

21.036 

-.347 

7 

-6.409 

13.426 

-68.928 

.330 

21.072 

-.692 

7 

-6.409 

13.429 

-68.932 

.382 

21.068 

-.657 

7 

-6.409 

13.433 

-68.936 

.384 

21.064 

-.623 

7 

-6.409 

13.436 

-68.939 

.386 

21.061 

-.539 

7 

-6.409 

13.440 

-68.943 

.388 

21.057 

-.554 

7 

-6.409 

13.444 

-68.946 

.390 

21.054 

-.520 

7 

-6.409 

13.447 

-68.950 

.392 

21.050 

-.485 

7 

-6.409 

13.451 

-68.954 

.394 

21.046 

-.451 

7 

-6.409 

13.434 

-68.957 

.396 

21.043 

-.416 

7 

-6.409 

13.458 

-68.961 

.399 

21.039 

-.382 

7 

-6.409 

13.461 

-68.964 

.401 

21.036 

-.347 

7 

-6.409 

13.465 

-68.968 

.403 

21.032 

-.313 

7 

-6.409 

13.469 

-68.972 

.405 

21.028 

-.278 

7 

-6.409 

13.472 

-68.975 

.407 

21.025 

-.243 

7 

-6.409 

13.476 

-68.979 

.409 

21.821 

-.209 

7 

-6.409 

13.479 

-68.982 

.411 

21.018 

-.  174 

7 

-6.409 

13.483 

-63.986 

.413 

21.014 

-.  139 

7 

-6.409 

13.486 

-68.939 

.415 

21.011 

-.  104 

7 

-6.409 

13.490 

-68.993 

.418 

21.007 

-.070 

7 

-6.409 

13.493 

-68.996 

.420 

21.004 

-.035 

7 

-6.409 

13.490 

-68.993 

.418 

21.007 

-.070 

7 

-6.409 

13.490 

-63.993 

.418 

21.007 

-.ess 

7 

-6.409 

13.491 

-68.994 

.418 

21.006 

-.863 

7 

-6.409 

13.491 

-68.994 

.413 

21.006 

-.859 

7 

-6.409 

13.491 

-68.994 

.418 

21.006 

-.056 

7 

-6.409 

13.492 

-68.995 

.419 

21.005 

-.052 

7 

-6.409 

13.492 

-68.995 

.419 

21.005 

-.049 

7 

-6.409 

13.492 

-68.995 

.419 

21.005 

-.045 

7 

-6.409 

13.493 

-68.996 

.419 

21.004 

-.042 

7 

-6.409 

13.493 

-68.996 

.419 

21.004 

-.038 

7 

-6.409 

13.493 

-63.996 

.420 

21.004 

-.035 

7 

-6.409 

13.494 

-68.997 

.420 

21.003 

-.031 

7 

-6.409 

13.494 

-68.997 

.420 

21.003 

-.023 

7 

-6.409 

13.495 

-68.998 

.420 

21.002 

-.024 

7 

-6.409 

13.495 

-68.998 

.420 

21.002 

-.021 

7 

-6.409 

13.495 

-63.998 

.421 

21.002 

-.017 

7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.014 

7 

-6.409 

13.496 

-63.999 

.421 

21.001 

-.010 

7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.007 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.003 

7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.007 

7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.007 

7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.006 
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7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.006 

7 

-6.409 

13.496 

-68.999 

.421 

21.001 

-.006 

7 

-6.409 

13.497 

-68.999 

.421 

21.001 

-.005 

7 

-6.409 

13.497 

-69.000 

.421 

21.000 

-.005 

7 

-6.409 

13.497 

-69. 000 

.421 

21.000 

-.005 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.  004 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.004 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.003 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

- .  003 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.003 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.002 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.002 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.802 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.001 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.001 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.001 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.489 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

7 

-6.409 

13.497 

-69.000 

.422 

21.000 

-.000 

3 

-7.373 

12.595 

-63.098 

0.000 

21.902 

-7.375 

3 

-7.373 

12.643 

-68. 146 

.023 

21.354 

-7.041 

3 

-7.373 

12.690 

-68. 193 

.047 

21.807 

-6.704 

3 

-7.373 

12.738 

-68.241 

.070 

21.759 

-6.363 

3 

-7.373 

12.785 

-68. 238 

.894 

21.712 

-6.013 

3 

-7.375 

12.331 

-68.334 

•  117 

21.666 

-5.670 

8 

-7.373 

12.378 

-63.331 

.  141 

21.619 

-5.319 

3 

-7.373 

12.924 

-63.427 

.  164 

21.373 

-4.963 

3 

-7.373 

12.970 

-63.473 

.188 

21.527 

-4.604 

3 

-7.373 

13.016 

-68.519 

.211 

21.481 

-4.241 

3 

-7.375 

13.062 

-63.565 

.233 

21.435 

-3.375 

3 

-7.375 

13. 107 

-68.610 

.258 

21.390 

-3.505 

3 

-7.375 

13. 152 

-68.655 

.232 

21.345 

-3. 131 

3 

-7.375 

13.196 

-68.699 

.305 

21.301 

-2.753 

3 

-7.375 

13.241 

-68.744 

.329 

21.256 

-2.371 

3 

-7.375 

13.285 

-63.787 

.352 

21.213 

-1.986 

8 

-7.375 

13.328 

-63.831 

.376 

21. 169 

-1.597 

3 

-7.375 

13.371 

-68.374 

.399 

21. 126 

-1.203 
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8 

-7.373 

13.413 

-68.916 

.423 

21.084 

-.366 

3 

-7.375 

13.455 

-68.958 

.  446 

21.042 

-.405 

8 

-7.375 

13.413 

-68.916 

.423 

21.084 

-.S&6 

3 

-7.375 

13.418 

-68.921 

.425 

21.079 

-.  766 

8 

-7.375 

13.422 

-68.925 

.428 

21.075 

-.726 

8 

-7.375 

13.426 

-68.929 

.430 

21.071 

-.686 

8 

-7.375 

13.430 

-68.933 

.432 

21.067 

-.  646 

8 

-7.375 

13.435 

-63.937 

.435 

21.063 

-.  666 

8 

-7.375 

13.439 

-68.942 

.437 

21.058 

-.566 

8 

-7.375 

13.443 

-68.946 

.439 

21.054 

-.526 

3 

-7.375 

13.447 

-68.950 

.442 

21.050 

-.436 

8 

-7.375 

13.451 

-68.954 

.  444 

21.046 

-.  445 

8 

-7.375 

13.455 

-68.958 

.446 

21.042 

-.405 

8 

-7.375 

13.460 

-68.963 

.  449 

21.037 

-.365 

8 

-7.375 

13.464 

-63.967 

.451 

21.033 

-.324 

3 

-7.375 

13.468 

-68.971 

.453 

21.029 

-.284 

8 

-7.375 

13.472 

-63.975 

.456 

21.025 

-.244 

3 

-7.375 

13.476 

-68.979 

.458 

21.321 

-.203 

8 

-7.375 

13.480 

-63.983 

.460 

21.817 

-.  162 

3 

-7.375 

13.485 

-68.988 

.463 

21.012 

-.  122 

3 

-7.375 

13.439 

-63.992 

.465 

21.008 

-.031 

8 

-7.375 

13.493 

-68.996 

.467 

21.004 

-.041 

3 

-7.375 

13.489 

-68.992 

.465 

21.008 

-.081 

8 

-7.375 

13.489 

-68.992 

.465 

21.003 

-.077 

3 

-7.375 

13.490 

-68.993 

.466 

21.007 

-.073 

3 

-7.375 

13.490 

-68.993 

.466 

21.007 

-.069 

8 

-7.375 

13.490 

-68.993 

.466 

21.007 

-.065 

8 

-7.375 

13.491 

-68.994 

.466 

21.006 

-.061 

3 

-7.375 

13.491 

-63.994 

.467 

21.006 

-.057 

8 

-7.375 

13.492 

-68.995 

.467 

21.005 

-.053 

3 

-7.375 

13.492 

-68.995 

.467 

21.005 

-.049 

8 

-7.373 

13.492 

-68.995 

.467 

21.005 

-.045 

3 

-7.375 

13.493 

-68.996 

.467 

21.004 

-.041 

8 

-7.375 

13.493 

-69.996 

.468 

21.004 

-.037 

3 

-7.373 

13.494 

-68.997 

.468 

21.003 

-.033 

3 

-7.373 

13.494 

-68.997 

.468 

21.003 

-.023 

8 

-7.373 

13.495 

-68.998 

.463 

21.002 

.  -.024 

3 

-7.373 

13.495 

-68.998 

.469 

21.002 

-.020 

3 

-7.373 

13.495 

-68.998 

.469 

21.002 

-.016 

3 

-7.373 

13.496 

-68.999 

.469 

21.001 

-.012 

8 

-7.375 

13.496 

-68.999 

.469 

21.001 

-.003 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.004 

3 

-7.375 

13.496 

-68.999 

.469 

21.001 

-.008 

3 

-7.375 

13.496 

-68.999 

.469 

21.001 

-.008 

3 

-7.375 

13.496 

-63.999 

.  469 

21.001 

-.007 

8 

-7.375 

13.496 

-68.999 

.469 

21.001 

-.007 

98 


TABLE    A -VI     CCONTJ 


RflY  BETA  THETFKRflY)  NORMAL  S  fll_PHfl2  RHO    2 


3 

-7.375 

13.496 

-63.999 

.469 

21.001 

-.007 

8 

-7.373 

13.496 

-68.999 

.469 

21.001 

-.006 

3 

-7.375 

13.496 

-68.999 

.469 

21.001 

-.  006 

3 

-7.375 

13.497 

-63.999 

.470 

21.001 

-.005 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.005 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.004 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.004 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.004 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.003 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.003 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.002 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.002 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.002 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.001 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

8 

-7,375 

13.497 

-69.000 

.470 

21.000 

-.000 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

8 

-7.375 

13.497 

-69.000 

.478 

21.000 

-.000 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

3 

-7.373 

13.497 

-69.000 

.470 

21.000 

-.000 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

3 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

8 

-7.375 

13.497 

-69.000 

.470 

21.000 

-.000 

9 

-8.406 

12.445 

-67.948 

0.000 

22.052 

-3.406 

9 

-8.406 

12.500 

-68.003 

.026 

21.997 

-8.032 

9 

-8.406 

12.556 

-63.059 

.052 

21.941 

-7.653 

9 

-8.406 

12.611 

-63. 114 

.078 

21.886 

-7.269 

9 

-8.406 

12.666 

-68. 169 

.  104 

21.831 

-6.881 

9 

-3.406 

12.720 

-68.223 

.  129 

21.777 

-6.433 

9 

-8.406 

12.775 

-63.278 

.  155 

21.722 

-6.090 

9 

-8.406 

12.329 

-63.332 

.  131 

21.663 

-5.638 

9 

-8.486 

12.383 

-63. 386 

.207 

21.614 

-5.280 
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9 

-8.49b 

12.937 

-63.440 

.233 

21.560 

-4.363 

9 

-8.406 

12.990 

-68.493 

.259 

21.507 

-4. 451 

9 

-8.406 

13.043 

-68.546 

.285 

21.454 

-4. 029 

9 

-8.406 

13.095 

-68.593 

.311 

21.402 

-3.602 

9 

-8.406 

13. 147 

-63.650 

.337 

21.350 

-3. 170 

9 

-3.406 

13. 199 

-63.702 

.363 

21.298 

-2.732 

9 

-8.406 

13.250 

-63.753 

.388 

21.247 

-2.290 

9 

-8.406 

13.301 

-68.304 

.414 

21.196 

-1.342 

9 

-8.406 

13.351 

-63.354 

.440 

21.  146 

-1.390 

9 

-8.406 

13.400 

-63.903 

.466 

21.097 

-.  932 

9 

-8.406 

13.449 

-63.952 

.492 

21.048 

-.469 

9 

-8.406 

13.449 

-68.952 

.492 

21.048 

-.469 

9 

-8.406 

13.454 

-68.957 

.495 

21.343 

-.  422 

9 

-8.406 

13.459 

-68.962 

.497 

21.838 

-.375 

9 

-8.406 

13.463 

-63. 966 

.500 

21.034 

-.329 

9 

-8.406 

13.468 

-68.971 

.502 

21.029 

-.232 

9 

-8.406 

13.473 

-68.976 

.505 

21.024 

-.235 

9 

-8.406 

13.478 

-68.981 

.508 

21.019 

-.  188 

9 

-8.406 

13.483 

-68. 936 

.510 

21.014 

-.  141 

9 

-8.406 

13.487 

-63.990 

.513 

21.010 

-.094 

9 

-8.406 

13.492 

-63.995 

.515 

21.005 

-.047 

9 

-8.406 

13.492 

-63.995 

.515 

21.005 

-.047 

9 

-8.406 

13.493 

-68.996 

.516 

21.004 

-.042 

9 

-8.406 

13.493 

-68.996 

.516 

21.004 

-.938 

9 

-8.406 

13.494 

-63.997 

.516 

21.003 

-.033 

9 

-8.406 

13.494 

-68.997 

.516 

21.003 

-.023 

9 

-8.406 

13.495 

-68.998 

.517 

21.002 

-.024 

9 

-8.406 

13.495 

-68.998 

.517 

21.002 

-.019 

9 

-8.406 

13.496 

-68.999 

.517 

21.001 

-.914 

9 

-8.406 

13.496 

-63.999 

.517 

21.001 

-.009 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.005 

9 

-8.406 

13.497 

-69.000 

.513 

21.000 

-.005 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.004 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.004 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.003 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.003 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.002 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.002 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.001 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.001 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.000 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.000 

9 

-8.406 

13.497 

-69.000 

.513 

21.000 

-.000 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.  000 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.  000 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.000 
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9 

-8.406 

13.497 

-69.008 

.518 

21.000 

-.000 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.000 

9 

-8.406 

13.497 

-69.000 

.513 

21.800 

-.  000 

9 

-8.406 

13.497 

-69.800 

.518 

21.000 

-.000 

9 

-8.406 

13.497 

-69.000 

.518 

21.000 

-.  000 

10 

-9.307 

12.277 

-67.780 

0.000 

22.220 

-9.507 

10 

-9.507 

12.341 

-67.844 

.028 

22. 156 

-9.091 

10 

-9.507 

12.405 

-67.908 

.057 

22.092 

-8. 670 

ie 

-9.507 

12.469 

-67.972 

.085 

22.028 

-8.242 

10 

-9.507 

12.533 

-68.036 

.  113 

21.964 

-7.303 

10 

-9.507 

12.596 

-68.099 

.  141 

21.901 

-7.369 

10 

-9.507 

12.660 

-63. 163 

.  170 

21.837 

-6.923 

10 

-9.507 

12.723 

-63.226 

.  198 

21.774 

-6.471 

10 

-9.507 

12.735 

-63.283 

.226 

21.712 

-6.013 

10 

-9.507 

12.348 

-63.351 

.255 

21.649 

-5.S48 

10 

-9.507 

12.910 

-63.412 

.283 

21.588 

-5.077 

10 

-9.507 

12.971 

-63.474 

.311 

21.526 

-4.600 

10 

-9.507 

13.032 

-68.535 

.340 

21.465 

-4. 116 

10 

-9.507 

13.092 

-68.595 

.368 

21.405 

-3.625 

10 

-9.507 

13. 152 

-63.655 

.396 

21.345 

-3. 128 

10 

-9.507 

13.212 

-68.715 

.424 

21.283 

-2.624 

10 

-9.507 

13.270 

-68.773 

.453 

21.227 

-2.  113 

10 

-9.507 

13.328 

-63.331 

.481 

21. 169 

-1.595 

10 

-9.507 

13.385 

-68.888 

.509 

21.  112 

-1.070 

10 

-9.507 

13.442 

-68.945 

.538 

21.855 

-.539 

10 

-9.507 

13.385 

-68.388 

.509 

21.  112 

-1.070 

10 

-9.507 

13.391 

-63.394 

.512 

21. 106 

-1.017 

10 

-9.507 

13.397 

-68.900 

.515 

21. 100 

-.965 

10 

-9.507 

13.402 

-68.905 

.518 

21.095 

-.912 

10 

-9.507 

13.408 

-68.911 

.521 

21.089 

-.858 

10 

-9.507 

13.414 

-68.916 

.523 

21.084 

-.305 

10 

-9.507 

13.419 

-68.922 

.526 

21.878 

-.752 

10 

-9.507 

13.425 

-68.928 

.529 

21.072 

-.699 

10 

-9.507 

13.430 

-68.933 

.532 

21.067 

-.646 

10 

-9.507 

13.436 

-68.939 

.535 

21.061 

-.592 

10 

-9.507 

13.442 

-68.945 

.538 

21.055 

-.539 

10 

-9.507 

13.447 

-68.950 

.540 

21.050 

-.485 

10 

-9.507 

13.453 

-68.956 

.543 

21.044 

-.431 

10 

-9.507 

13.458 

-68.961 

.546 

21.039 

-.378 

10 

-9.507 

13.464 

-68.967 

.549 

21.033 

-.324 

10 

-9.507 

13.469 

-68.972 

.552 

21.028 

-.270 

10 

-9.507 

13.473 

-63.978 

.555 

21.022 

-.216 

10 

-9.507 

13.480 

-63.983 

.537 

21.017 

-.  162 

10 

-9.507 

13.486 

-68.989 

.560 

21.011 

-.  108 

10 

-9.507 

13.492 

-63.994 

.563 

21.006 

-.054 
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18 

-9.507 

13.492 

-68.994 

.563 

21.006 

-.054 

10 

-9.507 

13.492 

-68.995 

.563 

21.005 

-.049 

10 

-9.507 

13.493 

-68.996 

.564 

21.004 

-.043 

10 

-9.507 

13.493 

-68.996 

.564 

21.004 

-.033 

10 

-9.507 

13.494 

-68.997 

.564 

21.003 

-.033 

10 

-9.507 

13.494 

-68.997 

.564 

21.003 

-.027 

10 

-9.507 

13.495 

-68.998 

.565 

21.002 

-.022 

10 

-9.507 

13.495 

-63.998 

.565 

21.002 

-.016 

10 

-9.507 

13.496 

-68.999 

.565 

21.001 

-.011 

10 

-9.507 

13.496 

-68.999 

.566 

21.001 

-.005 

10 

-9.507 

13.496 

-68.999 

.566 

21.001 

-.005 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.005 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.804 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.004 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.003 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.003 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.002 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.002 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.001 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.001 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.001 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.  000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.  000 

10 

-9.507 

13.497 

-69.000 

.566 

21.000 

-.000 

11 

-10.635 

12.090 

-67.593 

0.000 

22.407 

-10.685 

11 

-10.685 

12. 164 

-67.667 

.031 

22.333 

-10.227 

11 

-10.685 

12.237 

-67.740 

.061 

22.260 

-9.762 

11 

-10.685 

12.311 

-67.814 

.092 

22.136 

-9.239 

11 

-10.685 

12.384 

-67.387 

.  123 

22.113 

-8.809 

11 

-10.685 

12.458 

-67.961 

.153 

22.039 

.-8.320 

11 

-18.685 

12.531 

-68.034 

.184 

21.966 

-7.825 

11 

-10.685 

12.603 

-68.106 

.215 

21.394 

-7.321 

11 

-10.685 

12.676 

-68. 179 

.246 

21.821 

-6.309 

11 

-10.635 

12.748 

-68.251 

.276 

21.749 

-6.289 

11 

-10.685 

12.319 

-68.322 

.307 

21.678 

-5.760 

11 

-10.685 

12.890 

-68.393 

.338 

21.607 

-5.224 

11 

-10.685 

12.961 

-63.464 

.368 

21.536 

-4.679 

11 

-10.685 

13.031 

-68.534 

.399 

21.466 

-4. 125 

11 

-10.685 

13. 180 

-63.603 

.430 

21.397 

-3.562 
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TABLE    A-VI     (CONT) 


RflY 


BETA 


THETfKRAY) 


NORMAL 


ALPHR2 


RHO    2 


11      -10.685 

13. 169 

-68.671 

.460 

21.329 

-2.991 

11      -10.685 

13.236 

-68.739 

.491 

21.261 

-2.41 1 

11      -10.685 

13.303 

-68.306 

.522 

21. 194 

-1.822 

11      -10.685 

13.369 

-68.372 

.553 

21. 128 

-1.224 

11      -10.685 

13.433 

-68. 936 

.583 

21.064 

-.616 

11      -10.685 

13.369 

-63.872 

.553 

21. 128 

-1.224 

11      -10.685 

13.375 

-68.878 

.556 

21. 122 

-1. 163 

11      -10.685 

13.382 

-68.885 

.559 

21.115 

-1. 103 

11      -10.685 

13.338 

-63.891 

.562 

21. 109 

-1.842 

11      -10.685 

13.395 

-68.893 

.565 

21. 102 

-.982 

11      -10.685 

13.401 

-68.904 

.568 

21.096 

-.921 

11      -10.685 

13.408 

-68.911 

.571 

21.089 

-.860 

11      -10.685 

13.414 

-68.917 

.574 

21.083 

-.800 

11      -10.685 

13.421 

-63.924 

.577 

21.876 

-.739 

11      -10.685 

13.427 

-63.930 

.580 

21.070 

-.678 

11      -10.685 

13.433 

-63.936 

.583 

21.864 

-.616 

11      -18.685 

13.448 

-68.943 

.586 

21.057 

-.555 

11      -10.685 

13.446 

-68.949 

.589 

21.051 

-.494 

11      -10.685 

.  13.453 

-63.956 

.592 

21.044 

-.432 

11      -10.685 

13.459 

-68.962 

.596 

21.038 

-.371 

11      -10.685 

13.465 

-68.968 

.599 

21.032 

-.309 

11      -10.685 

13.472 

-68.975 

.602 

21.025 

-.248 

11      -10.685 

13.478 

-68.981 

.605 

21.019 

-.  136 

11      -10.685 

13.484 

-63.987 

.608 

21.013 

-.  124 

11      -10.685 

13.491 

-68.994 

.611 

21.806 

-.062 

11      -10.685 

13.484 

-68.987 

.608 

21.013 

-.  124 

11      -10.685 

13.485 

-68.988 

.608 

21.012 

-.  113 

11      -10.685 

13.486 

-63.989 

.608 

21.011 

-.  112 

11      -10.685 

13.486 

-68.989 

.609 

21.011 

-.  105 

11      -10.685 

13.487 

-68.990 

.609 

21.010 

-.099 

11      -10.685 

13.488 

-68.991 

.609 

21.009 

-.093 

11      -10.685 

13.488 

-68.991 

.610 

21.009 

-.087 

11      -10.685 

13.489 

-68.992 

.610 

21.008 

-.081 

11      -10.685 

13.489 

-68.992 

.610 

21.008 

-.074 

11      -10.685 

13.490 

-68.993 

.611 

21.007 

-.068 

11      -10.685 

13.491 

-68.994 

.611 

21.006 

-.062 

11      -10.685 

13.491 

-63.994 

.611 

21.006 

-.056 

11      -10.685 

13.492 

-68.995 

.612 

21.005 

-.050 

11      -10.685 

13.493 

-63.996 

.612 

21.004 

-.043 

11      -10.685 

13.493 

-68.996 

.612 

21.004 

-.037 

11      -10.635 

13.494 

-68.997 

.612 

21.003 

-.031 

11      -10.685 

13.495 

-68.997 

.613 

21.003 

-.025 

11      -10.685 

13.495 

-68.998 

.613 

21.002 

-.019 

11      -10.685 

13.496 

-68.999 

.613 

21.001 

-.012 

11      -10.685 

13.496 

-68.999 

.614 

21.001 

-.006 

11      -10.685 

13.496 

-68.999 

.613 

21.001 

-.012 
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TABLE    A -VI     (CONT) 


RAY 


BETA 


THETA<RAY> 


NORMAL 


ALPHA2 


RHO  2 


-10.685 

13.496 

-68.999 

.613 

21.001 

-.012 

-10.685 

13.496 

-68.999 

.613 

21.001 

-.011 

-10.685 

13.496 

-68.999 

.613 

21.001 

-.011 

-10.685 

13.496 

-68.999 

.613 

21.001 

-.010 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.009 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.009 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.003 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.007 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.007 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.006 

-10.685 

13.496 

-68.999 

.614 

21.001 

-.006 

-10.685 

13.497 

-68.999 

.614 

21.001 

-.005 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.004 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.004 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.003 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.002 

-10.685 

13.497 

-69.900 

.614 

21.000 

-.002 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.001 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

.  -.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

-10.685 

13.497 

-69.000 

.614 

21.000 

-.000 

12 

-11.947 

11.381 

-67.384 

0.000 

22.616 

-11.947 

12 

-11.947 

11.965 

-67.468 

.033 

22.532 

-11.446 

12 

-11.947 

12.049 

-67.552 

.066 

22.448 

-10.937 

12 

-11.947 

12. 133 

-67.636 

.099 

22.364 

-10.413 

12 

-11.947 

12.217 

-67.720 

.  132 

22.280 

-9.889 

12 

-11.947 

12.301 

-67.804 

.  166 

22. 196 

-9.351 
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TABLE  A-VI  (CONT) 


RAY 


BETA 


THETACRAY) 


NORMAL 


ALPHA2 


RHO  2 


12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 


1.94? 
1.947 
1.94? 
1.94? 
1.94? 
1.94? 
1.94? 
1.94? 
1.94? 
1.947 
1.94? 
1.947 
1.947 
1.947 
1.947 
1.947 
1.94? 
1.947 
1.947 
1.947 
1.947 
1.947 
1.947 
1.94? 
1.947 
1.94? 
1.947 
1.947 
1.94? 
1.947 
1.947 
1.947 
1.947 
1.947 
1.947 
1.947 
1.94? 
1.947 
1.947 
1.947 
1.94? 
1.947 
1.94? 
1.947 
1.947 
1.947 


12.335 
12.469 
12.552 
12.635 
12.717 
12.799 
12.831 
12.961 
13.041 
13. 120 
13. 198 
13.275 
13.358 
13.424 
13.497 
13.424 
13.432 
13.439 
13.446 
13.454 
13.461 
13.468 
13.475 
13.433 
13.490 
13.497 
13.490 
13.491 
13.491 
13.492 
13.493 
13.493 
13.494 
13.495 
13.496 
13.496 
13.497 
13.496 
13.496 
13.496 
13.497 
13.497 
13.497 
13.497 
13.497 
13.497 


-67.888 
-67.972 
-68.055 
-68. 138 
-63.220 
-68.302 
-68.384 
-68.464 
-68.544 
-68.623 
-68.701 
-68.773 
-68.853 
-63.927 
-69.000 
-68.927 
-68.935 
-68.942 
-68.949 
-63.957 
-68.964 
-68.971 
-68.973 
-68.986 
-68.993 
-69.000 
-68.993 
-68.994 
-63.994 
-68.995 
-63.996 
-68.996 
-68.997 
-68.998 
-68.999 
-68.999 
-69.000 
-68.999 
-68.999 
-68.999 
-68.999 
-69.000 
-69.000 
-69.000 
•69.000 
•69.000 


.  199 
.232 
.265 
.298 
,331 
.364 
.39? 
,430 
.463 
.497 
.530 
,563 
.596 
,629 
,662 
,629 
,632 
,636 
,639 
,642 
,645 
,649 
,652 
,655 
,659 
,662 
,659 
,659 
,659 
,669 
.669 
669 
,661 
,661 
,661 
,662 
662 
.662 
662 
,662 
662 
662 
662 
662 
662 
662 


22.  112 
22.028 
21.945 
21.362 
21.780 
21.698 
21.616 
21.536 
21.456 
21.377 
21.299 
21.222 
21.147 
21.073 
21.000 
21.073 
21.065 
21.058 
21.051 
21.043 
21.036 
21.029 
21.022 
21.014 
21.007 
21.000 
21.00? 
21.006 
21.006 
21.005 
21.004 
21.004 
21.003 
21.002 
21.001 
21.001 
21.000 
21.001 
21.001 
21.001 
21.001 
21.000 
21.000 
21.000 
21.000 
21.000 


-8.803 
-8.245 
■7.677 
-7.098 
-6.508 
-5. 90S 
-5.297 
-4.675 
-4.042 
-3.393 
-2.742 
■2.074 
•1.395 
-.703 

-.000 

-.703 
-.633 
-.564 
-.494 
-.423 
-.353 
-.283 
-.212 
-.  142 
-.071 
-.800 
-.071 
-.064 
-.85? 
-.050 
-.043 
-.035 
-.023 
-.821 
-.014 
-.007 
-.008 
-.007 
-.006 
-.086 
-.805 
-.084 
-.004 
-.003 
-.002 

-.001 
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TABLE  A-VI  (CONT) 


RflY       BETA         THETfKRftY)     NORMAL         S  ALPHA2         RHO  2 


12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.  000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.  000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

13 

-13.300 

11.646 

-67. 149 

0.000 

22.851 

-13.300 

13 

-13.300 

11.741 

-67.244 

.036 

22.756 

-12.758 

13 

-13.300 

11.337 

-67.340 

.071 

22.660 

-12.203 

13 

-13.300 

11.933 

-67.436 

.  107 

22.564 

-11.638 

13 

-13.300 

12.029 

-67.532 

.  142 

22.468 

-11.060 

13 

-13.300 

12. 125 

-67.628 

.  178 

22.372 

-10.470 

13 

-13.300 

12.221 

-67.724 

.213 

22.276 

-9.368 

13 

-13.300 

12.316 

-67.819 

.249 

22. 181 

-9.253 

13 

-13.300 

12.412 

-67.915 

.284 

22.085 

-8.626 

13 

-13.300 

12.507 

-68.010 

.320 

21.990 

-7.985 

13 

-13.300 

12.602 

-68. 105 

.355 

21.895 

-7.331 

13 

-13.300 

12.696 

-68. 199 

.391 

21.801 

-6. 663 

13 

-13.300 

12.790 

-68.293 

.426 

21.707 

-5.931 

13 

-13.300 

12.332 

-63.385 

.462 

21.615 

-5.235 

13 

-13.300 

12.974 

-68.477 

.497 

21.523 

-4.575 

13 

-13.300 

13.065 

-63.568 

.533 

21.432 

-3.350 

13. 

-13.300 

13. 154 

-68.657 

.568 

21.343 

-3.  110 

13 

-13.300 

13.242 

-68.745 

.604 

21.255 

-2.356 

13 

-13.300 

13.329 

-68.832 

.639 

21. 168 

-1.586 

13 

-13.300 

13.414 

-68.917 

.675 

21.083 

-.301 

13 

-13.300 

13.329 

-68.832 

.639 

21. 168 

-1.586 

13 

-13.300 

13.338 

-68.841 

.643 

21. 159 

-1.508 

13 

-13.300 

13.346 

-68.849 

.646 

21.151 

-1.430 

13 

-13.300 

13.355 

-68.858 

.650 

21.  142 

-1.352 

13 

-13.300 

13.363 

-68.866 

.653 

21. 134 

-1.274 

13 

-13.300 

13.372 

-63.875 

.657 

21. 125 

-1. 195 

13 

-13.300 

13.330 

-68.383 

.66^ 

21.  117 

-1.  117 

13 

-13.300 

13.389 

-68.392 

.664 

21. 108 

-1.033 

13 

-13.300 

13.397 

-68.900 

.667 

21. 100 

-.959 

13 

-13.300 

13.406 

-68.909 

.671 

21.091 

-.380 

13 

-13.300 

13.414 

-68.917 

.675 

21.083 

-.301 

13 

-13.300 

13.422 

-68.925 

.678 

21.075 

-.721 
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TABLE    A-VI     (CONT) 


RflY 


BETA 


THETPKRflY) 


N0RMfV_ 


ALPHA2 


RHO    2 


13 

-13.300 

13.431 

-68.934 

.682 

21.066 

-.642 

13 

-13.300 

13.439 

-68.942 

.685 

21.053 

-.562 

13 

-13.300 

13.447 

-68.950 

.639 

21.050 

-.482 

13 

-13.300 

13.456 

-68.959 

.692 

21.041 

-.402 

13 

-13.300 

13.464 

-68.967 

.696 

21.033 

-.322 

13 

-13.300 

13.472 

-63.975 

.699 

21.025 

-.242 

13 

-13.300 

13.481 

-68.984 

.703 

21.016 

-.  161 

13 

-13.300 

13.489 

-68.992 

.79? 

21.008 

-.031 

13 

-13.300 

13.481 

-68.984 

.703 

21.016 

-.  161 

13 

-13.300 

13.481 

-68.984 

.703 

21.016 

-.  153 

13 

-13.300 

13.482 

-63.985 

.704 

21.015 

-.  145 

13 

-13.300 

13.483 

-68.986 

.704 

21.014 

-.  137 

13 

-13.300 

13.484 

-63.987 

.704 

21.013 

-.  129 

13 

-13.300 

13.485 

-68.988 

.705 

21.012 

-.  121 

13 

-13.300 

13.436 

-68.988 

.705 

21.012 

-.  113 

13 

-13.300 

13.436 

-68.989 

.705 

21.011 

-.  105 

13 

-13.300 

13.487 

-68.990 

.706 

21.013 

-.097 

13 

-13.300 

13.438 

-68.991 

.706 

21.009 

-.039 

13 

-13.300 

13.439 

-68.992 

.797 

21.008 

-.031 

13 

-13.300 

13.490 

-68.993 

.707 

21.007 

-.073 

13 

-13.300 

13.490 

-68.993 

.707 

21.007 

-.065 

13 

-13.300 

13.491 

-68.994 

.708 

21.006 

-.057 

13 

-13.300 

13.492 

-68.995 

.708 

21.005 

-.048 

13 

-13.300 

13.493 

-68.996 

.788 

21.004 

-.  «4y 

13 

-13.300 

13.494 

-63.997 

.709 

21.003 

-.032 

13 

-13.300 

13.495 

-68.998 

.709 

21.302 

-.024 

13 

-13.300 

13.495 

-68.998 

.709 

21.002 

-.016 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.008 

13 

-13.300 

13.495 

-68.998 

.709 

21.002 

-.016 

13 

-13.300 

13.495 

-68.998 

.709 

21.002 

-.015 

13 

-13.300 

13.496 

-68.999 

.709 

21.001 

-.015 

13 

-13.300 

13.496 

-68.999 

.709 

21.001 

-.014 

13 

-13.300 

13.496 

-68.999 

.709 

21.001 

-.013 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.012 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.011 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.011 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.010 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.009 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.008 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.007 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.006 

13 

-13.300 

13.496 

-68.999 

.710 

21.001 

-.006 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.005 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.004 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.003 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.002 
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13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.002 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.  O02 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.002 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.  001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.00O 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.001 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.  000 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.000 

13 

-13.300 

13.497 

-69.000 

.710 

21.OO0 

-.000 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.000 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.000 

13 

-13.300 

13.497 

-69.000 

.710 

21.000 

-.000 

14 

-14.735 

11.382 

-66.385 

0.000 

23.  115 

-14.735 

14 

-14.755 

11.490 

-66.993 

.038 

23.007 

-14. 170 

14 

-14.755 

11.598 

-67. 101 

.076 

22.399 

-13.572 

14 

-14.755 

11.706 

-67.209 

.  114 

22.791 

-12.959 

14 

-14.755 

11.315 

-67.318 

.  152 

22.682 

-12.331 

14 

-14.755 

11.924 

-67.427 

.  190 

22.573 

-11.689 

14 

-14.755 

12.034 

-67.537 

.227 

22.463 

-11.031 

14 

-14.755 

12. 143 

-67.646 

.265 

22.354 

-10.357 

14 

-14.755 

12.252 

-67.755 

.303 

22.245 

-9.663 

14 

-14.755 

12.361 

-67.864 

.341 

22. 136 

-8.962 

14 

-14.755 

12.470 

-67.973 

.379 

22.027 

-8.238 

14 

-14.755 

12.578 

-68.081 

.417 

21.919 

-7.498 

14 

-14.755 

12.685 

-68. 188 

.453 

21.812 

-6.740 

14 

-14.755 

12.792 

-68.295 

.493 

21.705 

.-5.964 

14 

-14.755 

12.897 

-63.400 

.531 

21.600 

-5. 170 

14 

-14.755 

13.002 

-68.505 

.569 

21.495 

-4.357 

14 

-14.755 

13. 105 

-68.608 

.606 

21.392 

-3.324 

14 

-14.755 

13.206 

-68.709 

.644 

21.291 

-2.673 

14 

-14.755 

13.305 

-68.808 

.682 

21. 192 

-1.802 

14 

-14.755 

13.402 

-68.905 

.720 

21.095 

-.911 

14 

-14.755 

13.402 

-63.905 

.720 

21.095 

-.911 

14 

-14.755 

13.412 

-68.915 

.724 

21.085 

-.321 

14 

-14.755 

13.421 

-68.924 

.728 

21.076 

-.730 

108 


TABLE    A-VI     (CONT) 


RAY 


BETA 


THETfKRAY) 


NORMAL 


ALPHR2 


RHO    2 


-14.755 

13.431 

-68.934 

.732 

21.066 

-.640 

-14.755 

13.440 

-68.943 

.735 

21.057 

-.549 

-14.755 

13.450 

-68.953 

.739 

21.047 

-.458 

-14.755 

13.459 

-68.962 

.743 

21.038 

-.367 

-14.755 

13.469 

-63.972 

.747 

21.028 

-.275 

-14.755 

13.478 

-68.981 

.751 

21.019 

-.  184 

-14.755 

13.488 

-68.991 

.754 

21.009 

-.092 

-14.755 

13.488 

-68.991 

.754 

21.009 

-.092 

-14.755 

13.489 

-68.992 

.755 

21.008 

-.083 

-14.755 

13.490 

-68.993 

.755 

21.007 

-.074 

-14.755 

13.490 

-68.993 

.755 

21.007 

-.064 

-14.755 

13.491 

-68.994 

.756 

21.006 

-.055 

-14.755 

13.492 

-68.995 

.756 

21.005 

-.046 

-14.755 

13.493 

-68.996 

.757 

21.004 

-.037 

-14.755 

13.494 

-68.997 

.757 

21.003 

-.028 

-14.755 

13.495 

-68.998 

.757 

21.002 

-.013 

-14.755 

13.496 

-68.999 

.758 

21.001 

-.009 

-14.755 

13.496 

-68.999 

.753 

21.001 

-.009 

-14.755 

13.496 

-68.999 

.758 

21.001 

-.008 

-14.755 

13.496 

-68.999 

.753 

21.001 

-.007 

-14.755 

13.496 

-68.999 

.758 

21.001 

-.006 

-14.755 

13.496 

-68.999 

.758 

21.001 

-.006 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.005 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.004 

-14.755 

13.497 

-69.000 

.753 

21.000 

-.003 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.002 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.001 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.001 

-14.755 

13.497 

-69.000 

.758 

21.800 

-.001 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.001 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.001 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.001 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.000 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.000 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.000 

-14.755 

13.497 

-69.000 

.758 

21.000 

-.000 

-14.755 

13.497 

-69.000 

.758 

21.000 

.  -.000 

15 

-16.320 

11.085 

-66.388 

0.000 

23.412 

-16.320 

13 

-IS. 320 

11.205 

-66.708 

.040 

23.292 

-15.694 

13 

-16.320 

11.327 

-66.830 

.081 

23. 170 

-15.052 

13 

-16.320 

11.449 

-66.952 

.  121 

23.048 

-14.393 

13 

-16.320 

11.572 

-67.075 

.  161 

22.925 

-13.715 

13 

-16.320 

11.696 

-67. 199 

.202 

22.801 

-13.019 

15 

-16.320 

11.320 

-67.323 

.242 

22.677 

-12.305 

13 

-16.320 

11.944 

-67.447 

.282 

22.553 

-11.570 
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15 

-16.320 

12.069 

-67.572 

.322 

22.428 

-10.816 

13 

-16.320 

12. 193 

-67.696 

.363 

22.304 

-10.841 

15 

-16.320 

12.319 

-67.821 

.403 

22. 179 

-9.245 

13 

-16.320 

12.442 

-67.945 

.443 

22.855 

-3.427 

15 

-16.320 

12.565 

-68.068 

.484 

21.932 

-7.537 

15 

-16.320 

12.688 

-68. 191 

.524 

21.809 

-6.724 

15 

-16.320 

12.809 

-68.312 

.564 

21.688 

-5.838 

15 

-16.320 

12.929 

-68.432 

.605 

21.568 

-4.927 

15 

-16.320 

13.047 

-68.550 

.645 

21.450 

-3.992 

15 

-16.320 

13. 164 

-63.66? 

.685 

21.333 

-3.033 

15 

-16.320 

13.278 

-68.780 

.726 

21.220 

-2.043 

15 

-16.320 

13.389 

-68.392 

.766 

21. 108 

-1.837 

15 

-16.320 

13.278 

-68.780 

.726 

21.220 

-2.043 

15 

-16.320 

13.289 

-68.792 

.730 

21.288 

-1.948 

15 

-16.320 

13.300 

-68.803 

.734 

21. 197 

-1.848 

15 

-16.320 

13.311 

-68.814 

.738 

21.  186 

-1.747 

15 

-16.320 

13.322 

-68.825 

.742 

21.175 

-1.646 

15 

-16.320 

13.334 

-63.836 

.746 

21. 164 

-1.546 

15 

-16.320 

13.345 

-68.848 

.750 

21.  152 

-1.444 

15 

-16.320 

13.356 

-68.359 

.754 

21.  141 

-1.343 

15 

-16.320 

13.367 

-68.370 

.758 

21. 130 

-1.241 

15 

-16.320 

13.378 

-68.881 

.762 

21.  119 

-1.  139 

15 

-16.320 

13.389 

-68.392 

.766 

21. 108 

-1.037 

15 

-16.320 

13.400 

-68.903 

.770 

21.097 

-.934 

15 

-16.320 

13.411 

-68.914 

.774 

21.086 

-.832 

15 

-16.320 

13.422 

-68.925 

.778 

21.075 

-.729 

15 

-16.320 

13.432 

-68.935 

.782 

21.065 

-.625 

15 

-16.320 

13.443 

-68.946 

.786 

21.054 

-.522 

15 

-16.320 

13.454 

-68.957 

.790 

21.043 

-.418 

15 

-16.320 

13.465 

-68.968 

.794 

21.032 

-.314 

15 

-16.320 

13.476 

-68.979 

.798 

21.021 

-.209 

15 

-16.320 

13.486 

-68.989 

.302 

21.011 

-.  105 

15 

-16.320 

13.486 

-68.989 

.802 

21.011 

-.  105 

15 

-16.320 

13.487 

-63.990 

.303 

21.010 

-.094 

15 

-16.320 

13.489 

-68.991 

.803 

21.009 

-.084 

15 

-16.320 

13.490 

-68.993 

.303 

21.007 

-.073 

15 

-16.320 

13.491 

-68.994 

.804 

21.006 

-.063 

15 

-16.320 

13.492 

-68.995 

.304 

21.005 

"  -.052 

15 

-16.320 

13.493 

-68.996 

.305 

21.004 

-.042 

IS 

-16.320 

13.494 

-68.997 

.80S 

21.003 

-.031 

15 

-16.320 

13.495 

-68.998 

.805 

21.002 

-.021 

15 

-16.320 

13.496 

-68.999 

.306 

21.001 

-.010 

15 

-16.320 

13.496 

-68.999 

.306 

21.001 

-.010 

15 

-16.320 

13.496 

-68.999 

.306 

21.001 

-.009 

15 

-16.320 

13.496 

-68.999 

.306 

21.001 

-.008 

15 

-16.320 

13.496 

-68.999 

.806 

21.001 

-.007 
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15 

-16.320 

13.496 

-63.999 

.806 

21.001 

-.006 

15 

-16.320 

13.497 

-68.999 

.306 

21.001 

-.005 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.004 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.003 

15 

-16.320 

13.497 

-69.000 

.806 

21.000 

-.002 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.301 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.001 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.001 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.001 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.001 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.001 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.001 

15 

-16.320 

13.497 

-69.000 

.806 

21.000 

-.000 

15 

-16.320 

13.497 

-69.000 

.806 

21.000 

-.000 

15 

-16.320 

13.497 

-69.000 

.806 

21.000 

-.000 

15 

-16.320 

13.497 

-69.000 

.306 

21.000 

-.000 

16 

-18.005 

10.749 

-66.232 

0.000 

23.748 

-18.005 

16 

-13.005 

10.333 

-66.336 

.043 

23.614 

-17.341 

16 

-18.085 

11.019 

-66.522 

.035 

23.478 

-16.657 

16 

-18.005 

11. 156 

-66.659 

.128 

23.341 

-15.952 

16 

-18.003 

11.294 

-66.7^? 

.  171 

23.203 

-15.226 

16 

-18.305 

11.434 

-66.937 

.214 

23.063 

-14.477 

16 

-18.005 

11.574 

-67.077 

.256 

22.923 

-13.704 

16 

-18.005 

11.715 

-67.213 

.299 

22.782 

-12.903 

16 

-13.005 

11.857 

-67.360 

.342 

22.640 

-12.087 

16 

-18.005 

11.999 

-67.502 

.384 

22.498 

-11.240 

16 

-18.005 

12. 141 

-67.644 

.427 

22.356 

-10.367 

16 

-18.005 

12.283 

-67.786 

.470 

22.214 

-9.467 

16 

-13.005 

12.423 

-67.928 

.513 

22.072 

-8.533 

16 

-18.005 

12.366 

-68.069 

.555 

21.931 

-7.580 

16 

-18.005 

12.706 

-68.209 

.598 

21.791 

-6.593 

16 

-18.005 

12.344 

-68.347 

.641 

21.653 

-5.575 

16 

-18.005 

12.980 

-68.483 

.683 

21.517 

-4.525 

16 

-18.005 

13.  114 

-68.617 

.726 

21.383 

-3.444 

16 

-18.005 

13.243 

-68.748 

.769 

21.252 

-2.329 

16 

-18.005 

13.373 

-68.876 

.311 

21.  124 

-1. 182 

16 

-18.005 

13.243 

-68.748 

.769 

21.252 

-2.329 

16 

-18.005 

13.258 

-68.761 

.773 

21.239 

-2.216 

16 

-18.005 

13.271 

-68.774 

.777 

21.226 

-2. 103 

16 

-13.003 

13.284 

-68.787 

.782 

21.213 

-1.989 

16 

-18.005 

13.297 

-68.300 

.786 

21.200 

-1.874 

16 

-18.005 

13.310 

-68.813 

.790 

21. 187 

-1.760 

16 

-18.005 

13.323 

-68.326 

.794 

21.174 

-1.645 

16 

-18.005 

13.335 

-68.333 

.799 

21. 162 

-1.530 

16 

-18.005 

13.348 

-68.851 

.803 

21. 149 

-1.414 
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16 

-13.005 

13.361 

-68.364 

.807 

21. 136 

-1.298 

16 

-18.005 

13.373 

-68.376 

.311 

21. 124 

-1. 182 

16 

-18.005 

13.386 

-68.389 

.316 

21.  Ill 

-1.965 

16 

-18.005 

13.398 

-68.901 

.320 

21.099 

-.948 

16 

-18.005 

13.411 

-68.914 

.324 

21.086 

-.831 

16 

-18.005 

13.423 

-68.926 

.829 

21.074 

-.713 

16 

-18.005 

13.436 

-68.939 

.333 

21.061 

-.595 

16 

-18.005 

13.448 

-63.951 

.337 

21.049 

-.477 

16 

-18.005 

13.460 

-68.963 

.841 

21.037 

-.358 

16 

-18.005 

13.473 

-68.976 

.346 

21.024 

-.239 

16 

-18.005 

13.485 

-68.988 

.850 

21.012 

-.  120 

16 

-18.005 

13.473 

-68.976 

.346 

21.024 

-.239 

16 

-13.005 

13.474 

-68.977 

.346 

21.023 

-.227 

16 

-18.005 

13.475 

-68.973 

.847 

21.022 

-.215 

16 

-13.005 

13.476 

-68.979 

.847 

21.021 

-.203 

16 

-18.005 

13.478 

-68.980 

.847 

21.020 

-.  191 

16 

-13.005 

13.479 

-68.982 

.848 

21.018 

-.  179 

16 

-18.005 

13.480 

-68.983 

.348 

21.017 

-.  163 

16 

-13.005 

13.481 

-68.984 

.349 

21.016 

-.  156 

16 

-18.005 

13.482 

-68.935 

.349 

21.015 

-.  144 

16 

-18.005 

13.484 

-63.987 

.350 

21.013 

-.  132 

16 

-18.005 

13.485 

-68.988 

.350 

21.012 

-.  120 

16 

-18.005 

13.486 

-68.989 

.350 

21.011 

-.  108 

16 

-18.035 

13.487 

-68.990 

.851 

21.010 

-.096 

16 

-18.005 

13.489 

-68.991 

.351 

21.009 

-.084 

16 

-18.005 

13.490 

-68.993 

.852 

21.007 

-.372 

16 

-18.005 

13.491 

-68.994 

.852 

21.006 

-.060 

16 

-18.005 

13.492 

-68.995 

.852 

21.005 

-.048 

16 

-18.005 

13.493 

-68.996 

.853 

21.004 

-.  036 

16 

-18.005 

13.495 

-68.993 

.353 

21.802 

-.024 

16 

-18.005 

13.496 

-68.999 

.354 

21.001 

-.012 

16 

-18.005 

13.496 

-68.999 

.854 

21.001 

-.012 

16 

-18.005 

13.496 

-68.999 

.854 

21.001 

-.011 

16 

-18.005 

13.496 

-63.999 

.354 

21.001 

-.010 

16 

-18.805 

13.496 

-68.999 

.354 

21.001 

-.008 

16 

-18.005 

13.496 

-68.999 

.354 

21.001 

-.007 

16 

-18.005 

13.496 

-68.999 

.354 

21.001 

-.006 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.005 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.004 

16 

-13.005 

13.497 

-69.000 

.854 

21.000 

-.002 

16 

-13.005 

13.497 

-69.000 

.354 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.002 

16 

-13.005 

13.497 

-69.000 

.854 

21.000 

-.002 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.002 

16 

-13.005 

13.497 

-69.000 

.354 

21.000 

-.002 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.002 
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16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.002 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.002 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.002 

16 

•  .-18.005 

13.497 

-69.080 

.354 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.854 

21.800 

-.001 

16 

-18.085 

13.497 

-69.000 

.354 

21.000 

-.001 

16 

-13.005 

13.497 

-69.000 

.354 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.001 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.000 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.000 

16 

-18.005 

13.497 

-69.000 

.354 

21.000 

-.000 

16 

-18.005 

13.497 

-69.000 

.854 

21.000 

-.000 

17 

-19.823 

10.369 

-65.872 

0.000 

24. 128 

-19.323 

17 

-19.823 

10.517 

-66.020 

.045 

23.980 

-19. 124 

17 

-19.823 

10.668 

-66. 171 

.090 

23.829 

-13.400 

17 

-19.823 

10.321 

-66.323 

.  135 

23.677 

-17.652 

17 

-19.823 

10.975 

-66.478 

.  180 

23.522 

-16.873 

17 

-19.823 

11. 132 

-66.635 

.226 

23.365 

-16.077 

17 

-19.823 

11.290 

-66.793 

.271 

23.207 

-15.243 

17 

-19.823 

11.450 

-66.953 

.316 

23.047 

-14.389 

17 

-19.823 

11.611 

-67. 114 

.361 

22.386 

-13.500 

17 

-19.823 

11.773 

-67.275 

.406 

22.725 

-12.573 

17 

-19.823 

11.935 

-67.438 

.451 

22.562 

-1  1.624 

17 

-19.823 

12.098 

-67.601 

.496 

22.399 

-10. 636 

17 

-19.823 

12.261 

-67.764 

.541 

22.236 

-9.612 

17 

-19.823 

12.423 

-67.926 

.586 

22.074 

-8.552 

17 

-19.823 

12.584 

-68.087 

.632 

21.913 

-7.454 

17 

-19.823 

12.744 

-68.247 

.677 

21.753 

-6.316 

17 

-19.823 

12.902 

-68.405 

.722 

21.595 

-5. 138 

17 

-19.823 

13.056 

-68.559 

.767 

21.441 

-3.913 

17 

-19.823 

13.208 

-68.711 

.812 

21.239 

-2.656 

17 

-19.323 

13.355 

-68.858 

.857 

21.  142 

-1.350 

17 

-19.823 

13.208 

-68.711 

.812 

21.289 

-2.656 

17 

-19.823 

13.223 

-68.726 

.817 

21.274 

-2.527 

17 

-19.823 

13.238 

-68.741 

.321 

21.259 

-2.398 

17 

-19.823 

13.252 

-68.755 

.326 

21.245 

-2.269 

17 

-19.323 

13.267 

-63.770 

.830 

21.230 

-2. 139 

17 

-19.823 

13.232 

-63.785 

.835 

21.215 

-2.009 

17 

-19.823 

13.297 

-68.300 

.339 

21.200 

-1.378 

17 

-19.823 

13.311 

-68.814 

.344 

21.  186 

-1.747 

17 

-19.823 

13.326 

-63.329 

.848 

21. 171 

-1.615 

17 

-19.823 

13.340 

-68.843 

.353 

21.  157 

-1.483 
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17 

-19.823 

13.355 

-68.858 

.857 

21.  142 

-1.350 

17 

-19.823 

13.369 

-68.372 

.862 

21.128 

-1.217 

17 

-19.823 

13.384 

-68.887 

.366 

21.  113 

-1.084 

17 

-19.823 

13.398 

-63.901 

.871 

21.099 

-.950 

17 

-19.823 

13.412 

-68.915 

.875 

21.085 

-.816 

17 

-19.823 

13.427 

-68.930 

.880 

21.078 

-.681 

17 

-19.823 

13.441 

-63.944 

.384 

21.056 

-.545 

17 

-19.823 

13.455 

-68.958 

.889 

21.042 

-.410 

17 

-19.823 

13.469 

-68.972 

.393 

21.028 

-.274 

IT 

-19.823 

13.483 

-68.986 

.398 

21.014 

-.  137 

17 

-19.823 

13.497 

-69.000 

.902 

21.000 

-.000 

18 

-21.784 

9.938 

-65.441 

0.000 

24.559 

-21.784 

18 

-21.784 

18. 101 

-65.604 

.048 

24.396 

-21.055 

18 

-21.784 

18.267 

-65.770 

.095 

24.230 

-20.297 

18 

-21.784 

18.436 

-65.939 

.  143 

24.061 

-19.509 

18 

-21.784 

18.608 

-66. Ill 

.  190 

23.389 

-13.691 

18 

-21.784 

10.782 

-66.285 

.238 

23.715 

-17.840 

18 

-21.784 

10.960 

-66.463 

.285 

23.537 

-16.955 

18 

-21.734 

11. 140 

-66. 643 

.333 

23.357 

-16.035 

18 

-21.784 

11.322 

-66.825 

.380 

23.175 

-15.077 

18 

-21.784 

11.506 

-67.009 

.428 

22.991 

-14.030 

18 

-21.784 

11.692 

-67. 195 

.475 

22.805 

-13.042 

18 

-21.784 

11.373 

-67.381 

.523 

22.619 

-11.961 

13 

-21.784 

12.066 

-67.569 

.570 

22.431 

-10.835 

18 

-21.784 

12.253 

-67.756 

.618 

22.244 

-9. 663 

18 

-21.784 

12.439 

-67.942 

.665 

22.058 

-8.443 

18 

-21.784 

12.625 

-68.127 

.713 

21.873 

-7. 172 

18 

-21.784 

12.807 

-68.310 

.760 

21.690 

-5.849 

18 

-21.784 

12.987 

-68.490 

.308 

21.510 

-4.472 

18 

-21.784 

13. 163 

-68.666 

.855 

21.334 

-3.039 

18 

-21.784 

13.333 

-68.836 

.903 

21.164 

-1.549 

18 

-21.784 

13.333 

-68.836 

.903 

21.164 

-1.549 

18 

-21.784 

13.350 

-68.853 

.908 

21.147 

-1.397 

18 

-21.784 

13.367 

-68.869 

.912 

21.131 

-1.244 

18 

-21.734 

13.383 

-68.386 

.917 

21.  114 

-1.090 

18 

-21.784 

13.400 

-68.903 

.922 

21.097 

-.936 

18 

-21.734 

13.416 

-68.919 

.927 

21.081 

-.732 

18 

-21.784 

13.432 

-68.935 

.931 

21.065 

-.627 

18 

-21.784 

13.449 

-68.952 

.936 

21.048 

-.471 

18 

-21.784 

13.465 

-68.968 

.941 

21.032 

-.314 

13 

-21.784 

13.481 

-68.984 

.946 

21.016 

-.  158 

18 

-21.734 

13.481 

-68.984 

.946 

21.016 

-.  158 

13 

-21.734 

13.483 

-68.986 

.946 

21.014 

-.  142 

13 

-21.734 

13.484 

-63.987 

.947 

21.013 

-.  126 

18 

-21.784 

13.486 

-68.989 

.947 

21.011 

-.  110 
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18 

-21.784 

13.487 

-68.990 

.947 

21.010 

-.095 

18 

-21.784 

13.489 

-68.992 

.948 

21.008 

-.079 

18 

-21.784 

13.491 

-68.994 

.948 

21.006 

-.063 

18 

-21.784 

13.492 

-68.995 

.949 

21.005 

-.047 

18 

-21.784 

13.494 

-68.997 

.949 

21.003 

-.032 

18 

-21.784 

13.495 

-68.998 

.950 

21.002 

-.016 

18 

-21.784 

13.495 

-68.998 

.950 

21.002 

-.016 

18 

-21.784 

13.496 

-68.999 

.950 

21.001 

-.014 

18 

-21.784 

13.496 

-68.999 

.950 

21.001 

-.013 

18 

-21.784 

13.496 

-68.999 

.950 

21.001 

-.011 

18 

-21.784 

13.496 

-68.999 

.950 

21.001 

-.009 

18 

-21.784 

13.496 

-68.999 

.950 

21.001 

-.003 

18 

-21.784 

13.496 

-68.999 

.950 

21.001 

-.006 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.005 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.003 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.002 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.002 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.001 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.001 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.001 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.001 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.001 

13 

-21.794 

13.497 

-69.000 

.950 

21.000 

-.001 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.000 

18 

-21.734 

13.497 

-69.000 

.950 

21.000 

-.000 

18 

-21.784 

13.497 

-69.000 

.950 

21.000 

-.000 

19 

-23.903 

9.450 

-64.953 

9.000 

25.047 

-23.903 

19 

-23.903 

9.626 

-65. 129 

.050 

24.871 

-23. 149 

19 

-23.903 

9.307 

-65.310 

.  100 

24.690 

-22.362 

19 

-23.903 

9.993 

-65.496 

.150 

24.504 

-21.541 

19 

-23.903 

10. 182 

-65.685 

.200 

24.315 

-20.684 

19 

-23.903 

10.376 

-65.379 

.250 

24. 121 

-19.788 

19 

-23.903 

10.574 

-66.077 

.300 

23.923 

-18.851 

19 

-23.903 

10.776 

-66.279 

.349 

23.721 

-17.872 

19 

-23.903 

10.981 

-66.484 

.399 

23.516 

-16.847 

19 

-23.903 

11. 190 

-66.693 

.449 

23.307 

-15.773 

19 

-23.903 

11.402 

-66.905 

.499 

23.095 

-14.649 

19 

-23.903 

11.616 

-67. 118 

.549 

22.882 

-13.472 

19 

-23.903 

11.831 

-67.334 

.599 

22.666 

-12.239 

19 

-23.903 

12.047 

-67.550 

.649 

22.450 

-10.946 

19 

-23.903 

12.264 

-67.767 

.699 

22.233 

-9.591 

19 

-23.903 

12.480 

-67.983 

.749 

22.017 

-8. 172 

19 

-23.903 

12.693 

-68. 196 

.799 

21.804 

-6.684 

19 

-23.903 

12.903 

-68.406 

.849 

21.594 

-5. 126 

19 

-23.903 

13. 108 

-68.611 

.399 

21.389 

-3.494 
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19 

-23.903 

13.307 

-63.310 

.948 

21. 190 

-1.736 

19 

-23.903 

13.497 

-69.000 

.998 

21.000 

-.000 

26 

-26. 190 

8.395 

-64.398 

0.000 

25.602 

-26. 190 

28 

-26. 190 

9.035 

-64.588 

.052 

25.412 

-25.421 

2d 

-26. 190 

9.230 

-64.783 

.  105 

25.217 

-24.615 

23 

-26. 190 

9.481 

-64.984 

.  157 

25.016 

-23.769 

20 

-26. 190 

9.683 

-65. 191 

.209 

24.809 

-22.330 

20 

-26. 190 

9.902 

-65.405 

.262 

24.595 

-21.946 

20 

-26. 190 

10. 121 

-65.624 

.314 

24.376 

-20.964 

20 

-26. 190 

10.346 

-65.349 

.366 

24. 151 

-19.931 

20 

-26. 190 

10.576 

-66.079 

.419 

23.921 

-18.342 

20 

-26. 190 

10.312 

-66.315 

.471 

23.685 

-17.695 

20 

-26. 190 

11.352 

-66.555 

.523 

23.445 

-16.486 

20 

-26. 190 

11.297 

-66.300 

.576 

23.200 

-15.210 

20 

-26. 190 

11.545 

-67.048 

.628 

22.952 

-13.363 

20 

-26. 190 

11.796 

-67.299 

.680 

22.701 

-12.441 

20 

-26. 190 

12.049 

-67.552 

.732 

22.448 

-10.940 

20 

-26. 190 

12.301 

-67.804 

.735 

22. 196 

-9.354 

20 

-26. 190 

12.552 

-68.055 

.337 

21.945 

-7.679 

20 

-26. 190 

12.799 

-68.302 

.889 

21.698 

-5.910 

20 

-26. 190 

13.041 

-68.544 

.942 

21.456 

-4.043 

20 

-26. 190 

13.274 

-68.777 

.994 

21.223 

-2.075 

20 

-26. 190 

13.497 

-69.000 

1.846 

21.000 

-.000 

21 

-28.661 

8.267 

-63.770 

0.000 

26.230 

-28.661 

21 

-28.661 

8.467 

-63.970 

.055 

26.030 

-27.388 

21 

-28.661 

8.674 

-64. 177 

.  109 

25.823 

-27.073 

21 

-28.661 

3.390 

-64.393 

.  164 

25.607 

-26.213 

21 

-28.661 

9.  113 

-64.616 

.219 

25.384 

-25.305 

21 

-28.661 

9.345 

-64.348 

.274 

25. 152 

-24.344 

21 

-28.661 

9.585 

-65.088 

.328 

24.912 

-23.326 

21 

-28.661 

9.333 

-65.336 

.383 

24.664 

-22.243 

21 

-28.661 

10.090 

-65.593 

.438 

24.407 

-21. 104 

21 

-28.661 

10.355 

-65.358 

.493 

24. 142 

-19.339 

21' 

-28.661 

10.627 

-66. 130 

.547 

23.870 

-18.598 

21 

-28.661 

10.906 

-66.409 

.602 

23.591 

-17.224 

21 

-28.661 

11. 192 

-66.695 

.657 

23.305 

- 1 5. 762 

21 

-28.661 

11.484 

-66.987 

.711 

23.013 

-14.204 

21 

-28.661 

11.779 

-67.282 

.766 

22.718 

-12.543 

21 

-28.661 

12.076 

-67.579 

.821 

22.421 

-10.771 

21 

-28.661 

12.373 

-67.876 

.376 

22. 124 

-8.382 

21 

-28.661 

12.667 

-68. 170 

.930 

21.330 

-6.363 

21 

-28.661 

12.956 

-68.459 

.985 

21.541 

-4.721 

21 

-28.661 

13.234 

-68.737 

1.040 

21.263 

-2.433 

21 

-28.661 

12.956 

-68.459 

.985 

21.541 

-4.721 
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21 

-23.661 

12.934 

-68.487 

.990 

21.513 

-4.498 

21 

-28.661 

13.012 

-68.515 

.996 

21.435 

-4.274 

21 

-28.661 

13.040 

-68.543 

1.001 

21.457 

-4.049 

21 

-28.661 

13.068 

-68.571 

1.007 

21.429 

-3.823 

21 

-28.661 

13.096 

-68.599 

1.012 

21.401 

-3.595 

21 

-28.661 

13. 124 

-68.627 

1.018 

21.373 

-3.365 

21 

-28.661 

13. 151 

-68.654 

1.023 

21.346 

-3. 134 

21 

-28.661 

13. 179 

-68.682 

1.829 

21.313 

-2.902 

21 

-28.661 

13.206 

-68.709 

1.034 

21.291 

-2.663 

21 

-28.661 

13.234 

-68.737 

1.340 

21.263 

-2.433 

21 

-28.661 

13.261 

-68.764 

1.045 

21.236 

-2. 197 

21 

-23.661 

13.288 

-68.791 

1.051 

21.209 

-1.958 

21 

-28.661 

13.314 

-68.817 

1.056 

21.133 

-1.719 

21 

-28.661 

13.341 

-68.844 

1.062 

21. 156 

-1.473 

21 

-28.661 

13.367 

-68.370 

1.067 

21. 130 

-1.235 

21 

-28.661 

13.394 

-68.897 

1.073 

21. 103 

-.991 

21 

-28.661 

13.420 

-63.923 

1.078 

21.077 

-.746 

21 

-28.661 

13.446 

-68.949 

1.084 

21.051 

-.499 

21 

-28.661 

13.471 

-68.974 

1.089 

21.026 

-.250 

21 

-28.661 

13.471 

-68.974 

1.089 

21.026 

-.250 

21 

-28.661 

13.474 

-68.977 

1.090 

21.023 

-.225 

21 

-28.661 

13.477 

-68.980 

1.090 

21.020 

-.200 

21 

-28.661 

13.479 

-63.982 

1.091 

21.018 

-.  175 

21 

-28.661 

13.482 

-68.985 

1.091 

21.015 

-.  158 

21 

-28.661 

13.484 

-68.987 

1.092 

21.013 

-.  125 

21 

-28.661 

13.487 

-68.990 

1.892 

21.010 

-.  100 

21 

-28.661 

13.489 

-68.992 

1.093 

21.008 

-.075 

21 

-28.661 

13.492 

-68.995 

1.093 

21.005 

-.050 

21 

-28.661 

13.494 

-68.997 

1.094 

21.003 

-.025 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.000 

21 

-28.661 

13.494 

-68.997 

1.094 

21.003 

-.025 

21 

-28.661 

13.495 

-68.998 

1.094 

21.002 

-.023 

21 

-28.661 

13.495 

-68.998 

1.094 

21.002 

-.020 

21 

-28.661 

13.495 

-68.998 

1.094 

21.002 

-.013 

21 

-28.661 

13.496 

-68.998 

1.094 

21.002 

-.015 

21 

-28.661 

13.496 

-68.999 

1.094 

21.001 

-.013 

21 

-28.661 

13.496 

-68.999 

1.094 

21.001 

.  -.010 

21 

-23.661 

13.496 

-68.999 

1.094 

21.001 

-.008 

21 

-23.661 

13.497 

-68.999 

1.094 

21.001 

-.005 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.003 

21 

-28.661 

13.497 

-68.999 

1.094 

21.001 

-.005 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.005 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.085 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.004 

21 

-23.661 

13.497 

-69.000 

1.094 

21.000 

-.004 

21 

-23.661 

13.497 

-69.000 

1.094 

21.000 

-.004 

117 


TABLE    A-VI     (CONT) 


RflY 


BETA 


THETACRAY) 


NORMAL 


ALPHA2 


RHO    2 


21 

-28.661 

13.49? 

-69.000 

1.094 

21.000 

-.  004 

21 

-28.661 

13.49? 

-69.080 

1.894 

21.000 

-.003 

21 

-28.661 

13.49? 

-69.800 

1.094 

21.000 

-.003 

21 

-28.661 

13.49? 

-69.000 

1.094 

21.080 

-.003 

21 

-28.661 

13.49? 

-69.000 

1 .  094 

21.000 

-.003 

21 

-28.661 

13.49? 

-69.000 

1.094 

21.000 

-.002 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.002 

21 

-28.661 

13.49? 

-69.000 

1.094 

21.000 

-.002 

21 

-28.661 

13.49? 

-69.000 

1.094 

21.000 

-.082 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.001 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.001 

21 

-28.661 

13.49? 

-69.000 

1.094 

21.000 

-.001 

21 

-28.661 

13.49? 

-69.000 

1.094 

21.000 

-.001 

21 

-28.661 

13.497 

-69.000 

1.094 

21.000 

-.000 

22 

-31.326 

7.356 

-63.058 

0.000 

26.942 

-31.326 

22 

-31.326 

7.762 

-63.265 

.057 

26.735 

-30.564 

22 

-31.326 

7.979 

-63.482 

.  114 

26.518 

-29.756 

22 

-31.326 

8.285 

-63.708 

.  171 

26.292 

-23.398 

22 

-31.326 

8.442 

-63.945 

.229 

26.055 

-27.935 

22 

-31.326 

3.690 

-64. 193 

.286 

25.807 

-27.012 

22 

-31.326 

8.949 

-64.452 

.343 

25.548 

-25.974 

22 

-31.326 

9.219 

-64.722 

.400 

25.278 

-24. 866 

22 

-31.326 

9.582 

-65.005 

.457 

24.995 

-23.680 

22 

-31.326 

9.796 

-65.299 

.514 

24.701 

-22.410 

22 

-31.326 

18. 103 

-65.606 

.571 

24.394 

-21.046 

22 

-31.326 

10.420 

-65.923 

.628 

24.077 

-19.582 

22 

-31.326 

10.749 

-66.252 

.686 

23.748 

-13.005 

22 

-31.326 

11.087 

-66.590 

.743 

23.410 

-16.308 

22 

-31.326 

11.434 

-66.937 

.800 

23.063 

-14. 477 

22 

-31.326 

11.786 

-67.289 

.857 

22.711 

-12.501 

22 

-31.326 

12. 141 

-67.644 

.914 

22.356 

-10.36? 

22 

-31.326 

12.496 

-67.999 

.971 

22.001 

-8.063 

22 

-31.326 

12.844 

-68.347 

1.028 

21.653 

-5.575 

22 

-31.326 

13. 180 

-68.683 

1.085 

21.31? 

-2.891 

22 

-31.326 

12.844 

-68.347 

1.028 

21.653 

-5.575 

22 

-31.326 

12.878 

-68.381 

1.034 

21.619 

.-5.315 

22 

-31.326 

12.913 

-68.415 

1.040 

21.585 

-5.054 

22 

-31.326 

12.947 

-68.450 

1.045 

21.550 

-4.791 

22 

-31.326 

12.980 

-68.483 

1.051 

21.517 

-4.525 

22 

-31.326 

13.014 

-68.51? 

1.057 

21.483 

-4.253 

22 

-31.326 

13.048 

-68.551 

1.063 

21.449 

-3.989 

22 

-31.326 

13.081 

-68.584 

1.068 

21.416 

-3.717 

22 

-31.326 

13.  114 

-68.617 

1.074 

21.383 

-3.444 

22 

-31.326 

13. 147 

-68.658 

1.080 

21.350 

-3. 168 

22 

-31.326 

13. 180 

-68.683 

1.085 

21.317 

-2.891 
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22 

-31.326 

13.213 

-68.716       1 

1.891 

21.284 

-2.611 

22 

-31.326 

13.245 

-68.748 

.897 

21.252 

-2.338 

22 

-31.326 

13.278 

-68.781 

L.  183 

21.219 

-2.846 

22 

-31.326 

13.318 

-68.313       1 

I.  188 

21.187 

-1.768 

22 

-31.326 

13.342 

-68.845       1 

1.114 

21.  155 

-1.472 

22 

-31.326 

13.373 

-68.376       1 

L.  128 

21. 124 

-1.  182 

22 

-31.326 

13.485 

-68.988       1 

.  125 

21.892 

-.398 

22 

-31.326 

13.436 

-63.939       I 

L.  131 

21.861 

-.595 

22 

-31.326 

13.466 

-68.969       1 

.  137 

21.831 

-.  299 

22 

-31.326 

13.436 

-68.939       1 

I.  131 

21.861 

-.595 

22 

-31.326 

13.439 

-68.942 

.  132 

21.858 

-.566 

22 

-31.326 

13.442 

-68.945       1 

.  132 

21.855 

-.536 

22 

-31.326 

13.445 

-68.943       1 

L.  133 

21.852 

-.586 

22 

-31.326 

13.448 

-68.951       1 

L.  133 

21.849 

-.477 

22 

-31.326 

13.451 

-68.954       1 

.  134 

21.846 

-.  447 

22 

-31.326 

13.454 

-68.957       1 

.  135 

21.843 

-.418 

22 

-31.326 

13.457 

-63.968       1 

.  135 

21.848 

-.388 

22 

-31.326 

13.468 

-63.963       I 

.  136 

21.837 

-.358 

22 

-31.326 

13.463 

-68.966       1 

..  136 

21.834 

-.323 

22 

-31.326 

13.466 

-68.969       1 

.  137 

21.831 

-.299 

22 

-31.326 

13.478 

-68.973       1 

..137 

21.827 

-.269 

22 

-31.326 

13.473 

-68.976       I 

.  138 

21.824 

-.239 

22 

-31.326 

13.476 

-63.979       1 

.  139 

21.821 

-.289 

22 

-31.326 

13.479 

-68.982       1 

..  139 

21.813 

-.  179 

22 

-31.326 

13.482 

-68.985       1 

.  148 

21.815 

-.  158 

22 

-31.326 

13.485 

-68.988       1 

.  148 

21.812 

-.  128 

22 

-31.326 

13.488 

-68.991       1 

.  141 

21.889 

-.898 

22 

-31.326 

13.491 

-68.994       1 

.  141 

21.886 

-.868 

22 

-31.326 

13.494 

-68.997       ! 

.  142 

21.883 

-.838 

22 

-31.326 

13.491 

-68.994       1 

.  141 

21.886 

-.868 

22 

-31.326 

13.491 

-68.994       1 

.141 

21.886 

-.857 

22 

-31.326 

13.492 

-68.995       1 

.  141 

21.885 

-.854 

22 

-31.326 

13.492 

-68.995       1 

.  142 

21.885 

-.051 

22 

-31.326 

13.492 

-68.995       1 

.  142 

21.085 

-.843 

22 

-31.326 

13.492 

-68.995       1 

.  142 

21.885 

-.045 

22 

-31.326 

13.493 

-68.996       1 

.  142 

21.884 

-.842 

22 

-31.326 

13.493 

-63.996       1 

.  142 

21.884 

-.839 

22 

-31.326 

13.493 

-63.996       1 

.  142 

21.884 

-.836 

22 

-31.326 

13.494 

-68.997       1 

.  142 

21.883 

-.833 

22 

-31.326 

13.494 

-68.997       I 

.  142 

21.883 

-.838 

22 

-31.326 

13.494 

-68.997       1 

.  142 

21.883 

-.827 

22 

-31.326 

13.495 

-68.998       1 

.  142 

21.882 

-.824 

22 

-31.326 

13.495 

-68.998       I 

.  142 

21.882 

-.021 

22 

-31.326 

13.495 

-63.998       1 

.  142 

21.882 

-.018 

22 

-31.326 

13.496 

-68.998       1 

.  142 

21.882 

-.015 

22 

-31.326 

13.496 

-63.999       1 

.142 

21.881 

-.812 
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22 

-31.326 

13.496 

-68.999 

1.  142 

21.001 

-.009 

22 

-31.326 

13.496 

-68.999 

1.  142 

21.001 

-.006 

22 

-31.326 

13.497 

-69.008 

1.  142 

21.000 

-.003 

22 

-31.326 

13.496 

-68.999 

1.  142 

21.001 

-.006 

22 

-31.326 

13.496 

-68.999 

1.  142 

21.001 

-.006 

22 

-31.326 

13.496 

-68.999 

1.  142 

21.001 

-.805 

22 

-31.326 

13.497 

-68.999 

1.  142 

21.001 

-.085 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.005 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.004 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.004 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.  004 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.004 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.003 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.003 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.003 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.002 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.802 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.002 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.001 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.001 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.080 

-.001 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.001 

22 

-31.326 

13.497 

-69.000 

1.  142 

21.000 

-.000 

23 

-34. 198 

6.733 

-62.256 

0.000 

27.744 

-34. 198 

23 

-34. 198 

6.961 

-62.464 

.060 

27.536 

-33.465 

23 

-34. 198 

7.  131 

-62.684 

.  119 

27.316 

-32.683 

23 

-34. 198 

7.413 

-62.916 

.  179 

27.084 

-31.346 

23 

-34. 198 

7.6S8 

-63. 161 

.238 

26.339 

-30.949 

23 

-34. 198 

7.917 

-63.420 

.298 

26.580 

-29.986 

23 

-34. 198 

8.  191 

-63.694 

.357 

26.306 

-23.951 

23 

-34.198 

8.488 

-63.983 

.417 

26.017 

-27.835 

23 

-34. 198 

8.786 

-64.289 

.476 

25.711 

-26.629 

23 

-34. 198 

9.  189 

-64.612 

.536 

25.388 

-25.323 

23 

-34. 198 

9.449 

-64.952 

.595 

25.048 

-23.907 

23 

-34. 198 

9.886 

-65.309 

.655 

24.691 

-22.367 

23 

-34. 198 

18. 131 

-65.684 

.714 

24.316 

-20.683 

23 

-34. 198 

18.373 

-66.076 

.774 

23.924 

-13.855 

23 

-34. 198 

10.981 

-66.484 

.833 

23.516 

-16.850 

23 

-34. 198 

11.401 

-66.984 

.893 

23.096 

-14.633 

23 

-34. 198 

11.331 

-67.333 

.952 

22.667 

-12.242 

23 

-34. 198 

12.264 

-67.767 

1.012 

22.233 

-9.594 

23 

-34. 198 

12.693 

-68. 196 

1.071 

21.804 

-6.686 

23 

-34. 198 

13. 108 

-68.611 

1.  131 

21.389 

-3.495 

23 

-34.198 

13.497 

-69.000 

1.191 

21.800 

-.000 
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24 

-37.283 

5.352 

-61.355 

0.OOO 

28.645 

-37.285 

24 

-37.285 

6.055 

-61.558 

.062 

28.442 

-36.603 

24 

-37.285 

6.278 

-61.773 

.  124 

28.227 

-35. 870 

24 

-37.285 

6.500 

-62. 003 

.  186 

27.997 

-35.030 

24 

-37.285 

6.745 

-62.248 

.248 

27.752 

-34.227 

24 

-37.285 

7.^<d7 

-62.510 

.310 

27.490 

-33.304 

24 

-37.285 

7.287 

-62.790 

.372 

27.210 

-32.301 

24 

-37.285 

7.537 

-63.090 

.434 

26.910 

-31.209 

24 

-37.285 

7.909 

-63.412 

.495 

26.588 

-30.017 

24 

-37.285 

8.254 

-63.757 

.557 

26.243 

-28.710 

24 

-37.285 

8.623 

-64. 126 

.619 

25.874 

-27.274 

24 

-37.285 

9.019 

-64.522 

.631 

25.478 

-25.690 

24 

-37.285 

9.441 

-64.944 

.743 

25.056 

-23.937 

24 

-37.285 

9.892 

-65.395 

.805 

24.605 

-21.990 

24 

-37.285 

10.369 

-65.872 

.867 

24. 123 

-19.820 

24 

-37.285 

10.872 

-66.375 

.929 

23.625 

-17.395 

24 

-37.285 

11.397 

-66.900 

.991 

23. 100 

-14.676 

24 

-37.235 

11.935 

-67.438 

1.053 

22.562 

-11.623 

24 

-37.285 

12.477 

-67.980 

1.  115 

22.020 

-8. 139 

24 

-37.285 

13.005 

-68.508 

1.  177 

21.492 

-4.329 

24 

-37.285 

12.477 

-67.980 

1.113 

22.020 

-8. 189 

24 

-37.285 

12.531 

-68.034 

1.  121 

21.966 

-7.823 

24 

-37.285 

12.584 

-68.087 

1.  127 

21.913 

-7.452 

24 

-37.285 

12.633 

-68.  141 

1.  133 

21.859 

-7.077 

24 

-37.285 

12.691 

-68. 194 

1.  140 

21.806 

-6.698 

24 

-37.285 

12.744 

-68.247 

1.  146 

21.753 

-6.315 

24 

-37.285 

12.797 

-68.300 

1.  152 

21.700 

-3.927 

24 

-37.285 

12.849 

-68.332 

1.  158 

21.643 

-5.534 

24 

-37.285 

12.902 

-68.405 

1.  164 

21.595 

-5. 137 

24 

-37.285 

12.954 

-68.457 

1.  170 

21.543 

-4.735 

24 

-37.285 

13.005 

-68.508 

1.  177 

21.492 

-4.329 

24 

-37.285 

13.057 

-63.559 

1.  183 

21.441 

-3.918 

24 

-37.285 

13.107 

-63.610 

1.  189 

21.390 

-3.502 

24 

-37.285 

13. 158 

-68.661 

I.  195 

21.339 

-3.081 

24 

-37.285 

13.208 

-68.711 

1.201 

21.289 

-2.656 

24 

-37.285 

13.257 

-68.760 

1.208 

21.240 

-2.225 

24 

-37.285 

13.386 

-68.809 

1.214 

21.191 

.-1.790 

24 

-37.285 

13.355 

-68.858 

1.220 

21. 142 

-1.330 

24 

-37.285 

13.403 

-68.986 

1.226 

21.094 

-.905 

24 

-37.285 

13.450 

-68.953 

1.232 

21.047 

-.455 

24 

-37.285 

13.403 

-68.906 

1.226 

21.094 

-.905 

24 

-37.235 

13.408 

-63.911 

1.227 

21.089 

-.860 

24 

-37.285 

13.412 

-63.915 

1.227 

21.085 

-.815 

24 

-37.285 

13.417 

-68.920 

1.228 

21.080 

-.770 

24 

-37.285 

13.422 

-68.925 

1.229 

21.075 

-.726 

24 

-37.285 

13.427 

-68.930 

1.229 

21.070 

-.681 
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TABLE    A-VI     (CONT) 


RflY 


BETA 


THETPKRAY) 


NORMAL 


ALPHA2 


RHO    2 


24 

-37.285 

13.431 

-68.934 

1.238 

21.866 

-.636 

24 

-37.285 

13.436 

-68.939 

1.231 

21.861 

-.590 

24 

-37.285 

13.441 

-63.944 

1.231 

21.056 

-.545 

24 

-37.285 

13.446 

-63.949 

1.232 

21.051 

-.588 

24 

-37.285 

13.458 

-68.953 

1.232 

21.847 

-.455 

24 

-37.235 

13.455 

-68.953 

1.233 

21.842 

-.418 

24 

-37.285 

13.468 

-68.963 

1.234 

21.837 

-.364 

24 

-37.235 

13.464 

-68.967 

1.234 

21.033 

-.319 

24 

-37.285 

13.469 

-68.972 

1.235 

21.028 

-.274 

24 

-37.285 

13.474 

-68.977 

1.236 

21.823 

-.  223 

24 

-37.285 

13.478 

-68.981 

1.236 

21.819 

-.133 

24 

-37.285 

13.483 

-68.986 

1.237 

21.814 

-.  137 

24 

-37.285 

13.433 

-68.991 

1.237 

21.009 

-.091 

24 

-37.285 

13.492 

-68.995 

1.238 

21.885 

-.046 

24 

-37.285 

13.492 

-68.995 

1.238 

21.005 

-.046 

24 

-37.285 

13.493 

-68.996 

1.238 

21.084 

-.041 

24 

-37.285 

13.493 

-68.996 

1.233 

21.004 

-.037 

24 

-37.235 

13.494 

-68.997 

1.238 

21.883 

-.032 

24 

-37.285 

13.494 

-68.997 

1.238 

21.883 

-.027 

24 

-37.235 

13.495 

-68.998 

1.238 

21.002 

-.023 

24 

-37.285 

13.495 

-68.998 

1.238 

21.002 

-.013 

24 

-37.285 

13.496 

-68.999 

1.233 

21.801 

-.814 

24 

-37.235 

13.496 

-68.999 

1.238 

21.881 

-.009 

24 

-37.235 

13.497 

-69.088 

1.239 

21.888 

-.005 

24 

-37.285 

13.497 

-69.088 

1.239 

21.800 

-.005 

24 

-37.235 

13.497 

-69.800 

1.239 

21.000 

-.004 

24 

-37.235 

13.497 

-69.800 

1.239 

21.000 

-.004 

24 

-37.285 

13.497 

-69.000 

1.239 

21.000 

-.003 

24 

-37.285 

13.497 

-69.888 

1.239 

21.000 

-.003 

24 

-37.285 

13.497 

-69.000 

1.239 

21.800 

-.802 

24 

-37.285 

13.497 

-69.808 

1.239 

21.008 

-.802 

24 

-37.285 

13.497 

-69.088 

1.239 

21.800 

-.001 

24 

-37.285 

13.497 

-69.000 

1.239 

21.080 

-.001 

24 

-37.285 

13.497 

-69.000 

1.239 

21.888 

-.000 

25 

-40.591 

4.848 

-60.351 

8.000 

29.649 

-40.591 

25 

-48.591 

5.835 

-68.538 

.064 

29.462 

-39.936 

25 

-48.591 

5.235 

-68.738 

.  129 

29.262 

-39.332 

25 

-48.591 

5.451 

-68.954 

.  193 

29.846 

-38.621 

25 

-48.591 

5.685 

-61. 187 

.257 

28.813 

-37.846 

25 

-48.591 

5.937 

-61.448 

.322 

28.568 

-37.000 

25 

-48.591 

6.211 

-61.714 

.386 

28.236 

-36.072 

25 

-48.591 

6.588 

-62.811 

.450 

27.989 

-35.051 

25 

-48.591 

6.832 

-62.335 

.515 

27.665 

-33.921 

25 

-48.591 

7.  186 

-62.689 

.579 

27.311 

-32.666 

25 

-48.591 

7.572 

-63.075 

.643 

26.925 

-31.266 
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TABLE    A- VI     (CONT) 


RftY 


BETA 


THETfKRflY) 


NORMAL 


PILPHA2 


RHO 


23 

-40.591 

7.995 

-63.498 

.708 

26.502 

-29.695 

23 

-40.591 

3.453 

-63.961 

.772 

26.039 

-27.923 

25 

-40.591 

3.964 

-64.467 

.836 

25.533 

-25.913 

23 

-40.591 

9.516 

-65.019 

.901 

24.981 

-23.620 

25 

-40.591 

10.  115 

-65.618 

.965 

24.382 

-20.988 

25 

-40.591 

10.760 

-66.263 

1.029 

23.737 

-17.952 

23 

-40.591 

11.442 

-66.945 

1.094 

23.055 

-14.430 

25 

-40.591 

12. 147 

-67.650 

1.  153 

22.350 

-10.331 

25 

-40.591 

12.347 

-68.350 

1.222 

21.650 

-5.554 

23 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.000 

23 

-40.591 

12.347 

-68.350 

1.222 

21.650 

-5.554 

23 

-40.591 

12.915 

-68.418 

1.229 

21.532 

-5.035 

23 

-40.591 

12.983 

-68.486 

1.235 

21.514 

-4.508 

25 

-40.591 

13.050 

-68.553 

1.242 

21.447 

-3.973 

25 

-40.591 

13.  116 

-68.619 

1.248 

21.331 

-3.430 

25 

-40.591 

13. 132 

-68.685 

1.254 

21.315 

-2.879 

25 

-40.591 

13.247 

-68.750 

1.261 

21.250 

-2.320 

25 

-40.591 

13.311 

-68.314 

1.267 

21. 136 

-1.753 

25 

-40.591 

13.374 

-68.877 

1.274 

21. 123 

-1. 177 

25 

-40.591 

13.436 

-68.939 

1.280 

21.061 

-.593 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.000 

25 

-40.591 

13.436 

-68.939 

1.230 

21.061 

-.593 

25 

-40.591 

13.442 

-68.945 

1.231 

21.055 

-.534 

25 

-40.591 

13.448 

-63.951 

1.282 

21.049 

-.475 

25 

-40.591 

13.454 

-68.957 

1.282 

21.043 

-.416 

25 

-40.591 

13.460 

-63.963 

1.283 

21.037 

-.357 

25 

-40.591 

13.467 

-63.970 

1.283 

21.030 

-.297 

25 

-40.591 

13.473 

-63.976 

1.284 

21.024 

-.233 

25 

-40.591 

13.479 

-68.982 

1.28S 

21.018 

-.  179 

25 

-40.591 

13.485 

-68.988 

1.285 

21.012 

-.  119 

25 

-40.591 

13.491 

-68.994 

1.286 

21.006 

-.  060 

23 

-40.591 

13.491 

-68.994 

1.286 

21.006 

-.060 

25 

-40.591 

13.492 

-68.995 

1.286 

21.005 

-.054 

25 

-40.591 

13.492 

-68.995 

1.286 

21.005 

-.048 

25 

-40.591 

13.493 

-68.996 

1.236 

21.004 

-.042 

23 

-40.591 

13.493 

-68.996 

1.286 

21.004 

-.036 

23 

-40.591 

13.494 

-68.997 

1.286 

21.003 

.  -.830 

23 

-40.591 

13.495 

-68.998 

1.286 

21.002 

-.024 

23 

-40.591 

13.495 

-68.998 

1.286 

21.002 

-.018 

23 

-40.591 

13.496 

-68.999 

1.287 

21.001 

-.012 

25 

-40.591 

13.496 

-63.999 

1.287 

21.001 

-.006 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.000 

25 

-40.591 

13.496 

-68.999 

1.287 

21.001 

-.006 

25 

-40.591 

13.496 

-68.999 

1.237 

21.001 

-.005 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.005 

23 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.004 
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TABLE    A-VI     (CONT-J 


RflY 


BETR 


THETfKRflY) 


NORflflU 


ALPHA2 


RHO    2 


25 

-49.591 

13.497 

-69.000 

1.287 

21.000 

-.004 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.003 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.082 

25 

-40.591 

13.497 

-69.000 

1.237 

21.000 

-.002 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.001 

23 

-40.591 

13.497 

-69.000 

1.237 

21.000 

-.001 

25 

-40.591 

13.497 

-69.000 

1.287 

21.000 

-.000 

26 

-44. 118 

3.740 

-59.243 

0.000 

30.757 

-44.  118 

26 

-44. 118 

3.899 

-59.402 

.067 

30.598 

-43.620 

26 

-44.  118 

4.071 

-59.574 

.  133 

30.426 

-43.076 

26 

-44. 118 

4.259 

-59.762 

.200 

30.238 

-42.482 

26 

-44. 118 

4.463 

-59.966 

.267 

30.034 

-41.329 

26 

-44. 118 

4.638 

-60. 191 

.334 

29.809 

-41. 109 

26 

-44. 118 

4.933 

-60.438 

.400 

29.562 

-40.310 

26 

-44. 118 

3.208 

-60.711 

.467 

29.289 

-39.420 

26 

-44. 113 

5.511 

-61.014 

.534 

28.986 

-38.423 

26 

-44. 118 

5.848 

-61.351 

.601 

28.649 

-37.298 

26 

-44.  118 

6.226 

-61.729 

.667 

28.271 

-36.021 

26 

-44.  118 

6.650 

-62. 153 

.734 

27.847 

-34.559 

26 

-44.  113 

7.  128 

-62.631 

.301 

27.369 

-32.373 

26 

-44. 118 

7.669 

-63. 172 

.368 

26.328 

-30.909 

26 

-44.  118 

8.233 

-63.786 

.934 

26.214 

-28.608 

26 

-44. 118 

8.978 

-64.481 

1.801 

25.519 

-25.356 

26 

-44.  118 

9.763 

-65.266 

1.068 

24.734 

-22.556 

26 

-44. 113 

10.638 

-66. 141 

1.  134 

23.859 

-18.544 

26 

-44. 118 

11.590 

-67.892 

1.201 

22.908 

-13.618 

26 

-44. 118 

12.574 

-68.077 

1.268 

21.923 

-7.527 

26 

-44.  118 

11.590 

-67.092 

1.201 

22.908 

-13.613 

26 

-44. 118 

11.638 

-67. 191 

1.208 

22.809 

-13.066 

26 

-44. 118 

11.786 

-67.289 

1.215 

22.711 

-12.501 

26 

-44. 118 

11.384 

-67.387 

1.221 

22.613 

-11.925 

26 

-44.  113 

11.983 

-67.486 

1.228 

22.514 

-11.336 

26 

-44.  113 

12.082 

-67.585 

1.235 

22.415 

-10.735 

26 

-44.  118 

12. 131 

-67.684 

1.241 

22.316 

-10. 120 

26 

-44.  118 

12.279 

-67.782 

1.248 

22.218 

-9.492 

26 

-44.  118 

12.378 

-67.881 

1.255 

22. 119 

.-8.851 

26 

-44.  118 

12.476 

-67.979 

1.261 

22.021 

-8. 196 

26 

-44.  118 

12.574 

-68.877 

1.268 

21.923 

-7.527 

26 

-44. 113 

12.671 

-68. 174 

1.275 

21.826 

-6.843 

26 

-44. 118 

12.767 

-68.270 

1.281 

21.730 

-6. 145 

26 

-44. 118 

12.863 

-68.366 

1.288 

21.634 

-5.431 

26 

-44. 118 

12.958 

-68.461 

1.295 

21.339 

-4.703 

26 

-44. 118 

13.051 

-68.554 

1.301 

21.446 

-3.959 

26 

-44. 118 

13. 144 

-68.647 

1.308 

21.333 

-3. 199 

26 

-44. 118 

13.233 

-68.738 

1.315 

21.262 

-2.424 
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TABLE    A-VI     (CONT) 


RAY 


BETA 


THETA<RAY> 


NORMAL 


ALPHA2 


RHO  2 


26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 


•44.  118 
■44.  118 


•44. 
-44. 
-44. 
-44. 
•44. 
-44. 
-44. 
-44. 
-44. 
•44. 
•44. 
-44. 
•44. 
•44. 
-44. 
-44. 
-44. 
-44. 


113 
118 
118 
118 
118 
118 
118 
118 
118 
118 
118 
113 
118 
118 
118 
113 
118 
118 


•44. 118 
•44. 118 


-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 
-44. 


118 
118 
118 
US 
118 
118 
118 
118 
113 
118 
118 
118 
118 
118 


-44. 118 
•44.  118 


-44. 
•44. 
•44. 
-44. 
•44. 
-44. 
-44. 
-44. 


113 
118 
113 
118 
113 
118 
118 
118 


13.324 
13.411 
13.324 
13.333 
13.342 
13.338 
13.359 
13.368 
13.377 
13.385 
13.394 
13.483 
13.411 
13.420 
13.429 
13.437 
13.446 
13.455 
13.463 
13.472 
13.488 
13.489 
13.480 
13.481 
13.482 
13.483 
13.483 
13.484 
13.485 
13.486 
13.487 
13.483 
13.489 
13.489 
13.490 
13.491 
13.492 
13.493 
13.494 
13.495 
13.495 
13.496 
13.496 
13.496 
13.496 
13.496 


-68.327 
-68.914 
-63.327 
-63.836 
-68.845 
-63.853 
-63.362 
-63.871 
-68.880 
-68.388 
-68.397 
•68.906 
-68.914 
-63.923 
-68.932 
-68.940 
-68.949 
-63.957 
-63.966 
-68.973 
-68.983 
-68.992 
-68.983 
-68.984 
-68.985 
-68.986 
-68.986 
-68.987 
-68.988 
-68.989 
-68.990 
-68.991 
-68.992 
•68.992 
-68.993 
-68.994 
-63.995 
-68.996 
•68.997 
•68.997 
-68.998 
-68.999 
-68.999 
-68.999 
-68.999 
•68.999 


1.321 
1.328 
1.321 
1.322 
1.323 
1.323 
1.324 
1.325 
1.325 
1.326 
1.327 
1.327 
1.328 
1.329 
1.329 
1.330 
1.331 
1.331 
1.332 
1.333 
1.333 
1.334 
1.333 
1.333 
1.333 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.334 
1.335 
1.335 
1.335 
1.335 
1.335 
1.335 


21. 173 
21.386 
21. 173 
21.164 
21. 155 
21. 147 
21. 138 
21. 129 
21. 120 
21.  112 
21. 103 
21.094 
21.886 
21.877 
21.063 
21.860 
21.051 
21.043 
21.034 
21.025 
21.017 
21.008 
21.817 
21.016 
21.015 
21.014 
21.014 
21.013 
21.012 
21.011 
21.010 
21.009 
21.008 
21.003 
21.007 
21.006 
21.005 
21.004 
21.003 
21.003 
21.002 
21.001 
21.001 
21.001 
21.001 
21.001 


.632 
.824 
.632 
,552 
,472 
,392 
,311 
,230 
.  149 
,863 
,987 
,986 
,324 
,743 
,661 
,579 
,497 
,  414 
,332 
,249 
,  166 
,833 
,  166 
,  153 
,  150 
,  141 
,  133 
,  125 
,  116 
,  108 
,  100 
,891 
,083 
,075 
Q67 
,058 
,050 
,042 
033 
,025 
,017 
008 
008 
007 
007 
006 
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TABLE  A-VI  (CONT) 


RflY       BETA         THETFKRAY)     NORMAL         S  RLPHfl2         RHO  2 


26 

-44. 118 

13.497 

-63.999 

1.335 

21.001 

-.005 

26 

-44. 118 

13.497 

-69.800 

1.335 

21.000 

-.004 

26 

-44.  113 

13.497 

-69.000 

1.335 

21.000 

-.003 

26 

-44. 118 

13.497 

-69.008 

1.335 

21.000 

-.002 

26 

-44. 118 

13.497 

-69.000 

1.335 

21.000 

-.002 

26 

-44. 118 

13.497 

-69.000 

1.335 

21.000 

-.001 
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TABLE.  A- VI I 

COORDINATE  (X,Y)  VALUES,  S,  ALPHA2  AND  RH02 
FOR  THE  FINAL  DESIGN  OF  SURFACE  NUMBER  1  IN 
FIGURE  20 


Begin         Next  Xsurf  Ysurf  S  fllph&2  RHO    2 

RAY  RAY  (next)  (next)  (next)  (next)  (next) 


1             1 

.362 

.080 

.  133 

21.000 

-.000 

1        2 

.465 

.040 

.  133 

21.066 

-.642 

1        3 

.568 

.079 

.  133 

21. 139 

-1.324 

1        4 

.671 

.  119 

.  133 

21.220 

-2.050 

1        5 

.774 

.  159 

.  133 

21.309 

-2.324 

1        6 

.977 

.  199 

.  132 

21.408 

-3.650 

1        7 

.986 

.239 

.131 

21.518 

-4.534 

1        8 

1.882 

.230 

.  130 

21.640 

-5.480 

1        9 

1.  185 

.321 

.  129 

21.778 

-6.496 

1       18 

1.237 

.361 

.  127 

21.932 

-7.589 

1       11 

1.389 

.403 

.  126 

22. 106 

-8.765 

1       12 

1.491 

.444 

.  123 

22.303 

-10.035 

1       13 

1.593 

.486 

.  121 

22.526 

-11.407 

1       14 

1.694 

.528 

.118 

22.779 

-12.892 

1       19 

1.796 

.570 

.  114 

23.068 

-14.503 

1       16 

1.896 

.613 

.  110 

23.399 

-16.251 

1       17 

1.997 

.637 

.105 

23.778 

-18.  150 

1       18 

2.897 

.701 

.  100 

24.213 

-20.215 

1       19 

2.  197 

.746 

.094 

24.712 

-22.460 

1       28 

2.296 

.791 

.086 

25.286 

-24.899 

1       21 

2.394 

.338 

.073 

25.943 

-27.545 

1       22 

2.492 

.885 

.063 

26.693 

-30.408 

1       23 

2.589 

.934 

.057 

27.543 

-33.492 

1       24 

2.685 

.984 

.045 

28.500 

-36.797 

1       23 

2.780 

1.035 

.030 

29.563 

-40.313 

1       26 

2.873 

1.089 

.014 

30.723 

-44.019 

12  7 


TABLE  A-VIII 
COORDINATE  VALUES  (X,Y)  FOR  THE  RAY  DIAGRAM  IN  FIGURE  22 


ray    xe 


Y0 


XI 


Yl 


X2 


Y2 


Xc 


Yc 


X4 


Y4 


1 

0 

.  110 

.287 

.  110 

.362 

.000 

4.000 

0.0 

50.00 

-.00 

2 

0 

.  150 

.390 

.  150 

.465 

.040 

4.  000 

0.0 

50.00 

-.52 

3 

0 

.189 

.493 

.  189 

.568 

.079 

4.000 

0.0 

50.00 

-1  .06 

4 

0 

.229 

.596 

.229 

.671 

.  119 

4.000 

0.0 

50.  00 

-1.65 

5 

0 

.268 

.699 

.268 

.774 

.  159 

4.  000 

0.0 

50.  00 

-2.27 

6 

0 

.308 

.302 

.303 

.377 

.  199 

4.000 

0.0 

50.00 

-2.93 

7 

0 

.348 

.906 

.348 

.980 

.239 

4.  000 

0.0 

50.  00 

-3.65 

8 

0 

.387 

1.009 

.387 

1.082 

.230 

4.000 

0.0 

50.00 

-4.41 

9 

0 

.427 

1.112 

.427 

1.  185 

.321 

4.000 

0.0 

50.00 

-5.24 

10 

0 

.466 

1.215 

.466 

1.287 

.361 

4.000 

0.0 

50.00 

-6.  13 

11 

0 

.506 

1.313 

.506 

1.389 

.403 

4.000 

0.0 

50.  00 

-7.09 

12 

0 

.546 

1.421 

.546 

1.491 

.444 

4.000 

0.0 

50.00 

-8.  14 

13 

0 

.585. 

1.524 

.585 

1.593 

.486 

4.000 

0.0 

50.00 

-9.28 

14 

0 

.623 

1.628 

.625 

1.694 

.528 

4.000 

0.0 

50.00 

-10.53 

13 

0 

.  664 

1.731 

.664 

1.796 

.570 

4.000 

0.0 

50.00 

-11.90 

16 

0 

.704 

1.334 

.704 

1.396 

.613 

4.000 

0.0 

50.00 

-13.41 

17 

0 

.744 

1.937 

.  744 

1.997 

.657 

4.  000 

0.0 

50.00 

-15.03 

18 

0 

.783 

2.040 

.783 

2.097 

.701 

4.000 

0.0 

50.00 

-16.94 

19 

0 

.323 

2.  143 

.823 

2.  197 

.746 

4.000 

0.0 

50.00 

-19.02 

20 

0 

.362 

2.247 

.362 

2.296 

.791 

4.000 

0.0 

50.00 

-21.35 

21 

0 

.902 

2.350 

.902 

2.394 

.338 

4.000 

0.0 

50.00 

-23.99 

22 

0 

.942 

2.453 

.942 

2.492 

.335 

4.000 

0.0 

50.00 

-27.00 

23 

0 

.981 

2.556 

.981 

2.589 

.934 

4.000 

0.0 

50.00 

-30. 44 

24 

0 

1.021 

2.659 

1.021 

2.685 

.984 

4.000 

0.0 

50.00 

-34.41 

25 

0 

1 .  060 

2.762 

1.060 

2.780 

1.035 

4.000 

0.0 

50.00 

-39.03 

26 

0 

1.  100 

2.366 

1.  100 

2.373 

1.089 

4.000 

0.0 

50.00 

-44.45 
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CHART  PROGRAI-l  LISTING 

10  PRINT  "**************#*********************************************■*********" 

20  PRINT  "*  *" 

30  PRINT  "♦  CHART  *" 

40  PRINT  "*  *" 

30  PRINT  "*•**■*•♦*■*•*■*•«•**  +  *****•**•*■*••  -*********•*************«••♦*****#**■*****■»•******•*■" 

60     DISP  "THIS  IS  CHART  !  !  !  " 

70     WRIT  2500 

80  Main:0PTI0N  BASE  0 

90       ! 

100  COM    Alpha,Talpha,Rho,Trho,Rho_initia1 ,Trhoi ,Rhol,Trhol,Rho2,Trho2 

110  COM    F,Z3,Z4,Norm, Thetai , Tdel ta 

120  COM    Date*, PI ott,  Faun  1 y*, Chart *, Mai n*, Mai nl*, Fl ag*, Y    hard* 

130  ! 

140  COM   Stuff  *,  Redraw*,  Di  gi  t  i  zel,  Ray_trace* 

150  COM    INTEGER    I ,  J  ,  Y0_1  oop  ,  Hray  ,  Nr  ay_c  hart  ,  Nray_f  am  i  1  y ,  Nr  ay_s  t  uf  f 

160  COM    INTEGER    Nr ay    t r ace , Nr ay    density, Add    ray , He , Ns, Nbet a, Fl ag 

170  ! 

180      COM  INTEGER  L i ne_:ount , L i ne_max, N_i ncrement , H i t_t ot a) , Pse 1 ec t , Hp i b 

190      COM  INTEGER  Family , Surf _no 

200      COM  REAL  Theta  cr 1 1 i c al , To  1 , Nl , N2, N3, De 1 t a  ray , Y0 , Ya, Yb, Apert urs 

210      ! 

220      COM  Y_bul 1 et , Smax_f am i 1 y , Percent_i mage 

230      COM  X 1 <  25 1 > , Y  1  <  251) , Xc  <  25 1 > , X2  <  25 1 > , Y2  < 25 1 )  ,  X2max  < 25 1 >  ,  Y2max  < 25 1 ) 

240      COM  Y3C251),  Y4< 251 ) , Bet a< 25 1 > , S2< 25 1 > , Xsurf max<25 1 > ,  Ysurf  max  •:  25  1  • 

250      ! 

260  COM    Qa(251),Smax<251),Alpha2<251),Rho2<251),Hit<200n 

270  ! 

280    Main**"Y"  !  SET  CONDITION 

290    DISP  "" 

300    PRINTER  IS  16 

310    NORMAL 

320    FIXED  2 

330    PRINT  PAGE 

340    OVERLAP 

350    Y*«"0" 

360    INPUT  "SERIAL  OR  OVERLAP  FOR  I/O  PROCESSING  < DEFAULT=OVERLAP >  ?  S'0",Y* 

370      IF  <Y$="SU>  OR  <Y*="s")  THEN  SERIAL 

380    CALL  Dialogue 

390    DEG 

400      PRINT  PAGE,"    When  entering  values  for  Smax  in  CHART  please  enter  reaso 

nabl e" 

410      PRINT  "values.  This  is  required  because  the  horizontal  axis  for  CHART  is 

divided" 
420      PRINT  "into  10  intervals.  The  program  takes  your  entry  for  Smax" 
430      PRINT  "and  divides  by  10  to  determine  the  tick  spacing.  The  vertical  " 
440      PRINT  "tick  marks  are  under  program  control,  enter  anything  you  wish." 
430      PRINT  LIN<2), "PRESS  CONT" 
460      PAUSE 
470      PRINT  PAGE 
480  Gymnastics:    Y_hard*»"NM 

490  INPUT  "DO  TOU  WANT  A  HARD  COPY  OF  THE  COMPUTED  DATA*>  Y/N",Y_ha 

rd* 

300  GOSUB  Yhard 

510  CALL  Header 

320  GOSUB  Printer 

330  CALL  Header_end 

340  PRINT  LINC2) 

530  Main**"N"     !  RESET  CONDITION 

560  Header:        DISP  "  WORKING  ..." 
570  Init ial ize_run:  Flag=0         '  RESET  CONDITION 
580  Y0_mi n=Ya*(Tal pha-Trhoi ;'Talpha 

390  Y0  max  =  Yb*<"Ta1  pha-Trhoi  )  -Tal  pha 

600  Xnray=Nray  !  AVOIDS  MIXED  MODE  ARITHMETIC 

610  Del y=(Y0_max-Y0_min)/Xnray 

620  Y0_mi n»Y0_mi n-De ly 

630   .  IF  Ya=0~THEN  Y0_mi n=YO_m l n*De 1 y 

640  Nray*Nray+Add_ray 


129 


650 

Ns»0           !  CO 

660 

Nc*0 

670 

Xl(Ns>=0 

630 

YKNs)=0 

690 

Bet a(9>=0 

700 

Y0_ 

loop:    FOR  Y0_loop=l  TO  Nray 

710 

720 

XyO  loop=YO  loop 

730 

Flag=0 

740 

X*0 

750 

Rho=Rho  initi al 

760 

Trho=TAN(Rho> 

77d 

Y=Y0_mi n*Dely*XyO_loop 

780 

Ns»Ns+l 

790 

Yl(Ns)»Y 

800 

One: 

CALL  Xlpos(X,Y> 

!  COUNTER  FOR  THE  (X,Y>  ARRAY 


!  COMPUTE  THE  INTERCEPT  OF  THE  INCIDENT 
!  AND  THE  FIRST  SURFACE 
!  AVOIDS  MIXED  MODE  ARITHMETIC 
!  RESET  FLAG 


810        Xl(Ns>=X 

820  Next_yO_1 oop:  NEXT  Y0_1 oop 

330         ~       INPUT  "ARE  YOU  USING  THE  CRT  CO  OR  THE  9S72A  PLOTTER  •,  P  >  ?  » 

P",Plot* 

840  IF  <P1ot*""C")  OR  (Plot*="c">  THEN  Chart 

850  INPUT  "PLEASE  ENTER  THE  SELECT  CODE  OF  THE  GRAPHICS  DEVICE  '-DE 

FAULT  =  7  >.",Pselect 

860  INPUT  "PLEASE  ENTER  THE  HPIB  ADDRESS  OF  THE  GRAPHICS  DEVICE  < D 

EFAULT  =  5  >. ",Hpib 

870  Chart:    CALL  Chart 

GOSUB  Yhard  end 

PRINT  LIN(2~, "PRESS  CONT" 

PAUSE 

PRINT 

PRINT  PAGE,"    If  the  scale  you  have  chosen  did  not  allow  the  compute 


880 
890 
900 
910 
920 
r  " 
930 
940 
950 

960 
970 
980 
990 

CAREFUL 
1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200  Rerun: 

1210 

1220 

1230  - 

1240 


PRINT  "to  number  all  of  the  curves  you  may  do  so  manually  by  " 

PRINT  "answering  yes  <Y>  to  the  next  prompt." 

PRINT  LIN(D,"    If  your  answers  is  yes,  the  graphics  display  of  the 

PRINT  "plot  will  come  on  and  a  cursor  will  be  in  the  lower  left" 

PRINT  "corner.  Position  the  cursor  by  using  the  DISPLAY" 

PRINT  "controls.  The  letter  or  number  will  be  drawn  with  i  t.  s   " 

PRINT  "left  si de  over  the  center  of  the  cursor.  You  MUST  BE 

PRINT  "because  mistakes  are  difficult,  if  not  impossible  to  erase" 
PRINT  "(consult  the  graphics  rom  manual  (page  91 >  to  erase  a  letter) 

PRINT  LIN(2),"   When  you  have  completed  all  of  your  lettering," 
PRINT  "PRESS  CONT. " 
PRINT  LINC2), "PRESS  CONT" 
PAUSE 

PRINT  PAGE 
Y$»"N" 

INPUT  "DO  YOU  WANT  TO  NUMBER  ANY  OF  THE  CURVES  ?  WN",Y* 
IF  CY$-"Y">  OR  (YS="y">  THEN  CSI2E  2.5 

THEN  LETTER 


OR 
OR 
OR 


(Y*="y"> 

<Y*="y")  THEN  CSIZE  15^4.54 

(Y*="y">  THEN  EXIT  GRAPHICS 


rVN",Dump  crt* 


IF  (Y**"Y"> 
IF  (Y»="Y"> 
IF  (Y*="Y"> 
Dump  crt*="N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT 

IF  (Dump_crt*="YM )  OR  (Dump_crt **"y " )  THEN  GOSUB  Printer 
Flag-0         !  RESET  CONDITION 
Y*="N" 

INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  ?  Y/N' 
IF  (Yf="Y">  OR  <YJ="y")  THEN  Chart 
PRINTER  IS  16 
PRINT  PAGE 
Y$»"N" 

INPUT  "ARE  YOU  GOING  TO  MAKE  ANY  MOPE  RUNS"*  Y/N".YS 
IF  (Y*»"N"->  OR  (Y*«"n">  THEN  Family 


Y* 


130 


1230  Rerun2:  Change*="N" 
1268  INPUT  "FIRE  YOU 

RHO-INITIAD?  Y'N", Change* 


GOIMG  TO  CHANGE  ANY  PARAMETERS  < n2, n3, A  1 pha, Nr ay ,  OR 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1330 
1360 
1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

S" 

1430 

1460 

1470 

1480 

1  ltt 

1490 

1300 

ER  Y 

1310" 

1520 

1530 

1340 

1550 

1560 

1570 

1580 

RT  ? 

1590 

1600 

ou" 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1768 

Y« 

1770 

1780 

1790 

1800 

hard* 

1810 

1820 


OR  <Change*="n" )  THEN  Gymnastics 


VALUE  OF 
i  ni  t  i  al  ) 


RHO-INITIAL  ">",Rho  initial 


VALUE  OF  ALPHAS", Al pha 


VALUE 

OF 

n2?" 

,N2 

VALUE 

OF 

n3?H 

,N3 

3  MUST 

BE 

<  n 

2,  PLEASE 

RE- 

ENTER 

THE 

VALUE 

3 

IF  <Change*="N 
GOSUB  Printer 
INPUT  "WHAT  IS  THE  HEW 
Rho_mitial=-l*ABS<:Rho 
Trhoi =TAN<Rho_i ni  t  i  al ) 
INPUT  "WHAT  IS  THE  NEW 
Talpha=TAN<Alpha> 
N2:      INPUT  "WHAT  IS  THE  NEW 
INPUT  "WHAT  IS  THE  HEW 

IF  N3>N2  THEN  BEEP 

IF  N3>N2  THEN  DISP  " 

IF  N3>N2  THEN  WAIT  2500 
IF  N3>N2  THEN  N2 

IF  N3<N2  THEN  Thet a_c r i t i c al =ASN<N3/N2 > 
Ya:       INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Ya  CINCHES;  ?",Ya 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Yb  (INCHES)  ?",Yb 
IF  Ya>»Yb  THEN  BEEP 
IF  Ya>=Yb  THEN  DISP  "Ya  MUST  BE  <  Yb;  PLEASE  RE-ENTER  THE  VALUE 

IF  Ya>=Yb  THEN  WAIT  2500 
IF  Ya>*Yb  THEN  Ya 
Aperture=Yb-Ya 
Y  bullet: INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Y  bullet  <  MUST  BE 


>  Yb  )  ?",Y  bu 


IF  Y  bul let<Yb  THEN  BEEP 

IF  Y~bullet<Yb  THEN  DISP  "Y  bullet  MUST  BE  >  Yb 


PLEASE  RE-ENT 


bul 1 et . " 

IF  Y_bullet<Yb  THEN  WAIT  2500 
IF  Y~bullet<Yb  THEN  Y_bullet 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  THE  No.  OF  RAYS  ?",Nray 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  FOCUS  < INCHES)  ?",F 
GOTO  Gymnastics 
Family:  Family*="N" 

PRINTER  IS  16 

INPUT  "DO  YOU  WANT  TO  DRAW  A  FAMILY  OF  SURFACES  FROM  THE  DESIGN  CHA 
Y^N-.Fami 1y* 

IF  <Fami Jy*»"N")  OR  <Fami 1 y*="n" )  THEN  Finished 
Fami:    PRINT  PAGE,"   Xmax  is  the  maximum  length  along  the  GLM  axis  which  y 

PRINT  "want  to  be  displayed." 

PRINT  "   A  rule  of  theumb  is  to  add  one  inch  to  the  focal  length." 

PRINT  "For  example:  if  the  Focal  length  is  4  inches,  key  in  5  and" 

PRINT  "PRESS  CONT. " 

PRINT  LIN<2), "PRESS  CONT" 

PAUSE 

Y  hard*»"N- 

INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  COMPUTED  DATA  ?  Y/'N",Y  hard* 

IF  <Y_hard*="Y")  OR  <Y_hard*="y" )  THEN  GOSUB  Yhard 

CALL  Fami 1 y 
GOSUB  Yhard_end 
Dump  crt*="N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/-N"  ,  Dump_crt  * 

IF  (Dump  crt*="Y")  OR  (Dump  crt*="y")  THEN  GOSUB  Printer 
Y*»"N" 
INPUT  "DO  YOU  WANT  TO  DRAW  THE  PLOT  USING  A  DIFFERENT  SCALE  ?  Y^N", 

IF  <Y*="Y")  OR  <Y*="y")  THEN  Fami 
Mainl*»"Y"  !  SET  CONDITION 

Y_hard*="N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  QA, Smax , A 1 pha2  and  Rho2  ?  Y/N",Y_ 

GOSUB  Yhard 
CALL  Header 
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1330 

1849 

1830 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940  Stuff: 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

20S0 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160  Re_stu 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

draw  J 

2240 

2250  Stuff 

2260 

Y'NM,Y$ 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

rd* 

2460 


FOR  1=1  TO  Nray 

IF  Li ne_count >Li ne_max  THEN  CALL  Header 
PRINT  USING  1870; I ,  Qa< I),Smax< I  )  ,  Al  pha20  )  ,  Rho2< I) 
L  i  ne_count =L i  ne_c ount  +  1 
IMAGE  14X,DDD,4<5X,DDD.DDD) 
NEXT  I 

CALL  Header_end 
GOSUB  Yhard_end 
PRINT  LINO0), "PRESS  CONT" 
Mainl*="N"  !  RESET  CONDITION 

PAUSE 
PRINTER  IS  16 

PRINT  PAGE,"  Please  study  the  display  and  choose  th 
PRINT  "which  you  want  to  use  to  generate  a  final  surf 
PRINT  "  When  you  have  decided  which  surface  to  use, 
PRINT  LIN<1),"  Key  in  the  number  of  the  surface  you 
PRINT  "in  response  to  the  prompt." 

PRINT  LINO),"    The  computer  will  then  determine  the 
PRINT  "the  surface  and  trace  250  rays  through  the  ape 
PRINT  LINO),"    When  you  Ar9    ready  to  proceed  PRESS 
PAUSE 
GRAPHICS 
WAIT  2500 
BEEP 

WAIT  250 
BEEP 
PAUSE 

EXIT  GRAPHICS 

INPUT  "WHICH  SURFACE  O, 2, 3, etc.)  ?", Family 
Fami 1 y=INT(Fam  i 1 y ) 

IF  Family<=0  THEN  Family=l 

IF  Fami 1 y>Nray_f ami  1 y  THEN  Fami 1 y=Nray_f ami  1 y 
DISP  "WORKING  ..." 
fC:       CALL  Stuff 
GOSUB  Yhard_end 
Dump_crt*="N" 
INPUT  "DO  YOU  WANT 
IF  <Dump_crt*="Y' 


!  IF  A  NOTE  TO  OPERATOR  IS  DESIRED,  THEN 
!  LORG  2,  MOVE  2,2  ,C3I2E  2.5  .LABEL  "PRE 
!  READY"  ,SETGU  CSIZE  15/4.54  AFTER  THE  S 


e  surfac 

ac  e .  " 
PRESS  C 
w  an  t  to 

apertur 
rt  ure . " 
CONT. " 

ENTER  SE 
SS  CONT 
ECOND  BE 


OUT" 

is*' 


e  of 


TGU, 
WHEN 
EP 


HARD  COPY  OF  THE  PLOT  ?  Y/N" , Bum 
OR  (Dump  crt*="y")  THEN  GOSUB  Pr 


p_c  r  t  * 
i  nt  er 


!  RESET  CONDITION 


Flag=0 

Redraw*="N" 

INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  ?  Y/N",Re 

IF  <RedrauS="Y")  OR  <Redraw*="y" )  THEN  Re_stuff 
trace:  Y$="N" 

INPUT  "DO  YOU  WANT  TO  TRACE  RAYS  THROUGH  THE  COMPUTED  SURFACE  ? 

IF  <Y*-"N")  OR  <YS="n")  THEN  Rerun3 
DISP  "I40RKIN'  ON  THE  RAY  TRACE  DATA..." 
FOR  Y0_loop*l  TO  Nray_stuff 

Surf  no=3 

Rho2»Rho2<Y0_loop) 

X»X2<Y0  loop) 

Y»Y2<Y0~loop) 

CALL  Binary_search(X,Y) 

Y3<Y0  loop)»Y~ 

X»23 

Surf  no*4 

CALL    Binary_search<X,Y) 

Y4<Y0    loop)»Y~ 
NEXT    Y0~loop 
Nray_trace=Nray_stuf f 
Ray_trace*a"Y" 
BEEP 
Y$»"N" 
INPUT    "DO    YOU    WANT    A    HARD    COPY    OF    THE    PAY    TRACE    DATA    ?    Y/N",YJ"i* 

GOSUB    Yhard 
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2470  CALL  Header 

2480  Stuf f_tracel : FOR  1=1  TO  Nray_stuff 

2490  IF  Line_count  >Line_(»ax  THEN  CALL  Header 

2500  PRINT  USING  25  1  0;  I ,  ©7y  1  <  I)  ,  XI  <  I  )  ,  Y  1C  I)  ,  X2  (  I  )  ,  Y2<  I>  ,  Xc  C  I  )  ,  0,  24  , 

Y4<I) 

2510  IMAGE  DDD,2X,D,3<:2X,DD.DDD,3X,DD.DDD).2X,D.D,3X,DD. DD,3X,4D.2D 

2520  Li ne_count=L i ne_count +1 

2530  NEXT  I 

2540  CALL  Header_*nd 

2550  GOSUB  Yhard_end 

2560  PRINT  LIN<2), "PRESS  CONT" 

2570  BEEP 

2580  PAUSE 

2590  Re_graph:     CALL  Graph 

2600    *     Redraw*="N" 

2610         INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  ?  Y/N",Re 

draw* 

2620  IF  (Redraw**"Y")  OR  <Redraw*="y " )  THEN  Pe_graph 

2630  Density:  PRINTER  IS  16 

2640  PRINT  PAGE,"   The  point  of  maximum  ray  density  is  determined  by  yo 

u  vi sual 1 y . " 

2650  PRINT  "by  placing  the  cross-hairs  (they  Mill  appear  automatically) 

ii 

2660  PRINT  "over  the  position  of  maximum  ray  density." 

2670  PRINT  "    This  is  accomplished  by  using  the  DISPLAY  controls  Cup 

,down, <-,->).  " 

2630 

HIFT  button" 

2690 


PRINT  "When  you  the  get  cursor  in  the  area  of  interest,  use  the  S_ 
PRINT  "with  the  DISPLAY  controls  (both  the  shift  button  and  disp 


lay  control 

2700 

2710 

2720 

2730 

2740 

rays" 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2320 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 

2930  Dense: 
2940 
2950 
2960 
2970 

2980  Denser 
2990 
LANE  ?  Y/-N",Y* 

3000  IF  (Y*=»"Y")  OR  (Y*="y")  THEN  Flag=0 

3010  IF  <Y$«"Y")  OR  (Y*="y">  THEN  Re_graph 

3020  Ray_trace*»"N" 

3030  Rerun3:  Y$»MN" 
3040  INPUT  "DO  YOU  WANT  TO  TRY  ANOTHER  SURFACE  (THIS  MEANS  STARTING  OVER 


PRINT  "should  be  depressed  simultaneously)  for  fine  pos i t i oi ng.  " 
PRINT  LIN(2),"    The  position  of  the  vertical  hair  is  critical," 
PRINT  "because  its  location  is  used  for  the  position  of  the  " 
PRINT  "image  plane  (23)  on  the  GLM  axis." 
PRINT  LIN(2) , "CAUTION  :  Do  not  let  the  image  plane  intercept  any 

PRINT  "in  the  interior  of  the  lens.  If  this  is  done,  those  rays" 

PRINT  "will  be  included  in  the  histogram." 

PRINT  LIN(2), "PRESS  CONT" 

PAUSE 

PRINT  PAGE,"    The  histogram  is  an  illustration  of  the  density" 

PRINT  "of  the  rays  that  intercept  the  image  plane  versus  radial  " 

PRINT  "distance  from  the  GLM  axis." 

PRINT  LIN(2),"    When  the  position  has  been  located,  PRESS  CONT." 

PRINT  LIN(2), "PRESS  CONT" 

PAUSE 

Digi  t  i  ze*=»"Y" 

CALL  Graph 

IF  P1ot$-"P"  THEN  Dense   !  P  FOR  HP-9872  PLOTTER 
Dump_crt*»"N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/N" , Dump_crt * 

IF  (Dump  crt$="Y")  OR  (Dump  crt*="y")  THEN  GOSUB  Printer 
PRINT  PAGE- 
DISP  "WORKIN'  ON  THE  HISTOGRAM..." 

CALL  Density         !  PRODUSE  A  HISTOGRAM  OF  THE  RAY  DENSITY 

IF  Plot*="P"  THEN  Denser 
Digitize*=»"N"    !  RESET  CONDITION 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  HISTOGRAM  ?  Y/N" , Dump_crt * 

IF  (Dump_crtS="Y" )  OR  ( Dump_crt $= "y " )  THEN  GOSUB  Printer 
Y*»"N" 
INPUT  "DO  YOU  WANT  TO  REDRAW  THE  HISTOGRAM  FOP  A  DIFFERENT  IMAGE  P 
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)  ?  Y/N",Y* 

3050  IF  <Y*="Y")  OR  <Y*="y">  THEN  Main 

3060  GOTO  Finished 

3070  Printer:PRINTER  IS  16 

3080  IF  <Change*="Y">  OR  <  Change**  "y."  )  THEN  Y_hard*="N" 

3090  IF  <Dump_crt*="Y")  OR  <Dump_crt *  =  "y " )  THEN  Y_hard*="Y" 

3100  IF  <Y_hard*="Y">  OR  < Y_hard*="y " >  THEN  PRINTER  IS  0 

3110  IF  <Y_hard*="Y"  >  OR  <  Y_hard*="y  "  >  THEN  PRINT  CHR*'.  27  )  8< "  %  1  00T  " 

3120  IF  <Dump_crt*="Y"  )  OR  <Dump  crt*="y")  THEN  Crt 

3130  FIXED  0 

3140  FIXED  2 

3150  IF  Date*=""  THEN  3170 

3160  PRINT  "DATE  :  ";Date* 

3170  PRINT  LINO),  "Alpha  =  "J  Al  pha;  "degrees"  ;  TAB<48) ;  "Rho-i  n\  t  i  al  =  ";R 

ho  i  ni  t  i  al 

3180  PRINT  "TAN<Alpha>  =  "  ;  Tal  pha;  TflBC  43  ) ;  "TAN  <  RHO-  INI  T  I  AL  >  =  ";Trf,oi 

3190  PRINT  LINC 1 ) , "RHOl  =  "; Rhol ;" degrees "; TAB< 4S >J" Thet a< cr i t i c al )  ■  " 

;  Thet a_cr i  tical;" degrees" 

3200  PRINT  LIN<1>,"GLM  Radius  =  ";  Y_bu  11  et ;"  i  riches" 

3210  PRINT  "Aperture  =  "; Apert ure ; TAB< 24) ; "Ya  =  " ; Ya;  " i nch " ; TAB ( 48 > ; " Yb 

»  " ; Yb; " i nches" 
3220  FIXED  5 

3230  PRINT  LIN<l),"nl  =  " ; Nl ; TAB<24) ; "n2  =  " ; N2; TAB<48) ; "n3" J N3 

3240  FIXED  0 

3250  PRINT  LIN<1>, "Number  of  Rays  =  "  ;Nray 

3260  FIXED  2 

3270  PRINT  LINO),  "Design  Focal  Point  =  ";F;"  inches" 

3280  PRINT 

3290  Crt:         IF  <Dump  crt*="Y")  OR  <Dump_crt *="y " )  THEN  DUMP  GRAPHICS 
3300  IF  <Y_hard*="Y")  OR  <Y  hard*="y">  THEN  PRINT  CHR*<27)S."5,1  36T" 

3310  IF  (Dump  crt*="Y")  OR  ~Dump_crt *="y " )  THEN  PRINTER  IS  16 

3320  Change*="N~  !  RESET  CONDITION 

3330  Dump  crt*="N" 

3340  Y  hard*="N" 

3350         RETURN 

3360  Yhard:  IF  <Y  hard**"Y")  OR  (Y  hard**"y" )  THEN  Flag*="l" 
3370         IF  <Y~hard*="N">  OR  <  YJ">ard*="n" )  THEN  Flag*="0" 
3380         IF  Flag*="l"  THEN  PRINTER  IS  0 
3390         IF  Flag*="l"  THEN  PRINT  CHR*<  27  >  8."S<  1  00T" 
3400       RETURN 

3410  Yhard  end:  IF  Flag*="l"  THEN  PRINT  CHR*<27)«."8,1 36T" 
3420  IF  Flag*="l"  THEN  PRINTER  IS  16 

3430  RETURN 

3440  Finished:  DISP  "FINISHED" 
3450       END 
3460  SUB  Snel 1 
3470    OPTION  BASE  0 
3480    ! 

3490    COM  Alpha, Talpha, Rho,Trho, Rho_i  nitial,Trhoi,Rhol,Trhol,Rho2,Trho2 
3500    COM  F,Z3,Z4,Norm,Thetai ,Tde1 ta 

3510    COM  Date*, PI ot*, Fami 1 y*t Chart*, Mai n*, Mai nl*,Fl ag*, Y  hard* 
3520    ! 

3530    COM  Stuff *, Redraw*, Di gi t i ze*, Ray_trace* 

3540    COM  INTEGER  I , J, Y0_1 oop, Nray , Nray_chart , Nray_f ami  1 y , Nray_st uf f 
3550    COM  INTEGER  Nray_t race, Nray  density, Add  ray , Nc , Ns, Nbet a, F 1 ag 
3560    ! 

3570    COM  INTEGER  Li  ne_count ,  L i  ne_roax,  N_i  ncrement ,  Hi  t  t  ot  al  ,  Pse  1  ec  t ,  Hpi  b 
3588    COM  INTEGER  Fami 1 y , Surf_no 

3590    COM  REAL  Theta  cri  t  i  cal7l"ol  ,  Nl ,  N2,  N3,  Del  t  a  ray ,  Y0,  Ya,  Yb,  Apert  ure 
3600    ! 
3610   DEG 

3620  One:  Thet ai *90-< Al phi+ABSCRho) )    !  RHO  MUST  BE  DECLARED  ELESWHERE 
3630      Alpha2*Alpha 
3640       Norm*Alpha2-90 
3650       Sin_iprime*Nl/N2*SIN<Thetai ) 
3660   -    The~ar»ASN<Si n_i pr i me) 
3670       Rhol=Alpha2+Thetar-90     !  USE  ALPHA2  INSTEAD  OF  NORM  BECAUSE  THE 
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3680 

3690       Trhol*TAN(Rhol) 

3700  SUBEND 

3710  SUB  Plot 

3720    OPTION  BASE  0 

3730    ! 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3830 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

MENT 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080  Set 

4090  Crt 

4100 


SIGN  OF  THE. ANGLE  IS  DESIRED 


COM  A1pha,Ta1pha,Rho,Trho,Rho_imtial,Trhoi,Rhol,Trhol, Rho2, Trho2 

COM  F,23,24,Norm,Thetai , Tdel t a 

COM  D ate*, Plot*, F ami  ly*, Chart*, Mai n*,Mainl*,Flag*,  Y_hard* 

; 

COM  Stuff*,Redraw*,Digiti::e*, Ray_trace* 

COM  INTEGER  I , J, Y0_1 oop, Nr ay , Nray_c hart , Nray_f am i 1 y , Nray_st uf f 

COM  INTEGER  Nray_trace, Nray_densi  ty, fldd_ray , Nc , Ns, Nbet  a,  Fl  ag 

! 

COM  INTEGER  Line_count,Li ne_max, N_increment,Hit_total,Pseleet,Hpib 

COM  INTEGER  F ami  1 y, Surf _no 

COM  REAL  Theta_cr i  tical ,Tol , Nl , N2, N3, Del ta_ray, Y0, Ya, Yb, Aperture 

! 

COM  Y_bul let, Smax_f ami ly,Percent_image 

COM  x7(*) , Yl ( *)  , Xc*(*) , X2(*) , Y2<*T, X2max(*) , Y2max(*) 

COM  Y3(*) , Y4(*) , Beta(*) , S2(*) , Xsurf max(*) , Ysurfmax(*) 

COM  Qa<*> , Smax(*) , fl 1 pha2< * ) , Rho2<*> , Hi t (*) 

THE  ORIGINAL  OF  THIS  ROUTINE  WAS  OBTAINED  FROM  THE  HP  UTILITIES  LIBRARY 

9845B  UTILITY  LIBRARY 

PROGRAM  CARTRIDGE  2 

09845-10205 

PROGRAM  REGPLT 
SUB  LAXES  WAS  ALSO  BORROWED  FROM  THE  LIBRARY 

THIS  ROUTINE  IS  USED  TO  SET  UP  THE  LIMIT, LOCATE, SCALE  AND  CLIP  STATE 

STATEMENTS  FOR  THE  FOLLOWING  ROUTINES: 

1)  CHART 

2)  FAMILY 

3)  STUFF 

4)  DENSITY 

5)  RAY_TRACE 

Fl aga*Fl agc=0 

up:     IF  (Plot*="P")  OR  (P1ot$="p">  THEN  P9872a 
PLOTTER  IS  13, "GRAPHICS" 
GOTO  4120 


4110  P9872a:   PLOTTER  IS  Pse  1  ec t , Hpi b, "9872A 
4120  GCLEAR 

LINE  TYPE  1 

LDIR  0 

LORG  5 

LIMIT  0, 184,0, 140 
DATA  -2,-1,1,2 
READ  Um,Dm,Md,Mu 
DATA  .39794, .69897, .37306 
READ  Log2,Log5,Log7 


4130 
4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270     ! 

4280  Chart: 

4290 

,  Xmi  n 

4300 

4310  • 

?",X*ax 


'  ALL  UNITS  IN  MILLIMETERS 


IF  <Digi t i ze*»"Y" )  OR  (Di gi t i ze*="y 

IF  (Ray_trace*="YH )  OR  (Ray_trac»*= 

IF  <Chart*»"Y">  OR  (Chart *»"y" )  THEN  Chart 

IF  (Fami ly**"Y")  OR  (Fami 1 y*="y " )  THEN  Family 

IF  (Stuff*="Y")  OR  (3tuff*="y")  THEN  Stuff 


)  THEN  Digit_scale 
y")  THEN  Ray  trace 


Xm  i  n=0 
INPUT  ' 

Xmax=2 
INPUT  ' 


WHAT  IS  THE  MINIMUM  VALUE  OF  S  < INCHES)  (DEFAULT  »  0  INCH)  ?' 


WHAT  IS  THE  MAXIMUM  VALUE  OF  S  (INCHES)  (DEFAULT 


2.0  INCH) 
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4326  IF  FlagcM  THEN  4380 

4330         Ymin=Alpha-l 

4340         Ymax=90 

4350         INPUT  "WHAT  IS  THE  MINIMUM  VALUE  OF  ALPHA2  (DEGREES)  ^DEFAULT  =*  ALPH 

ft-l   DEG)  "'".Ymin 

4360         INPUT  "WHAT  IS  THE  MAXIMUM  VALUE  OF  ALPHA2  (DEGREES)  (DEFAULT  =  99  D 

EC)  ?M,Ymax 

4370  IF  F1aga=l  THEN  4430 

4380  IF  Xmin>Xmax  THEN  BEEP 

4390  IF  Xmin>Xmax  THEN  DISP  "Stnin  IS  >  Smax  :  PLEASE  RE-ENTER  VALUES  IN 

CORRECT  ORDER" 
4400  IF  Xmin>Xmax  THEN  WAIT  2500 

4410  IF  Xmin>Xmax  THEN  Flagc=l 

4420  IF  Xmin>Xmax  THEN  Chart 

4430  IF  Ymin>Ymax  THEN  BEEP 

4440  IF  Ymin>Ymax  THEN  DISP  "ALPHA2mtn  IS  >  ALPHA2max  :  PLEASE  RE-ENTER 

VALUES  IN  CORRECT  ORDER" 
4450  IF  Ymin>Ymax  THEN  WAIT  2500 

4460  IF  Ymin>Ymax  THEN  Flaga=l 

4470  IF  Ymin>Ymax  THEN  4330 

4480         Xorg=>Xmin 
4490         Yorg«Ymin 
4500        F 1 aga*F 1  age  =0 
4510       GOTO  Chart_scal e 
4520  Family:  Xmi n=Ymi n=Xorg=Yorg=0 
4530         Ymax»Y  bul let 
4540         Xmax»5~ 
4550  INPUT  "WHAT  IS  THE  MAXIMUM  VALUE  OF  X  (INCHES)  (DEFAULT  =  5  INCHES) 

?M,Xmax 
4560  IF  Xmax<=Xmin  THEN  BEEP 

4570  IF  Xmax<=Xmin  THEN  DISP  "Xmax  MUST  BE  >  Xmin.  PLEASE  RE-ENTER  T 

HE  VALUES  IN  THE  CORRECT  ORDER." 
4580  IF  Xmax<=Xmin  THEN  WAIT  2500 

4590  IF  Xmax<=Xmin  THEN  Family 

4600  Family  scale:  LOCATE  15,130,35,100 
4610  GOSUB  Same 

4620  SCALE  Xmi n- . 5*ABS( Yt i c ) , Xmax*. 5*ABS( Yt i c > , Ymi n-. 5*ABS( Yt  i  c  >  ,  Y 

_bul letf ,5*ABS<Ytic) 

4630  CLIP  Xmin-.5*ABS(Ytic),Xmax+.5*ABS(Yt  i c ) , Ym i n-. 5*ABS < Yt 1c),Y 

_bul let*.5*ABS<Ytic) 

4640  GOSUB  Same_axes 

4650  SUBEXIT 

4660  Stuff:  Xmi n=Ymi n*Xorg=Yorg=0 
4670         :<max  =  5 
4680        Ymax»Y_bul1et 

4690         INPUT  "WHAT  IS  THE  MAXIMUM  VALUE  OF  X  (INCHES)  (DEFAULT  =  5  INCHES) 
?",Xmax 

4700  IF  Xmax<»Xrain  THEN  BEEP 

4710  IF  XmaxOXmin  THEN  DISP  "Xmax  MUST  BE  >  Xmin.  PLEASE  RE-ENTER  TH 

E  VALUES  IN  THE  CORRECT  ORDER." 
4720  IF  XmaxOXmin  THEN  WAIT  2500 

4730  IF  Xmax<=Xmin  THEN  Stuff 

4740  Stuff_scale:  LOCATE  15,130,35,100 
4750  •        GOSUB  Same 

4760'      '   •      SCALE  Xmin-.  5*ABS(Ytic>, Xmax*. 5*ABS< Yt i c ) , Ym i n-. 5*ABS( Yt i c  )  ,  Y 
bullet*. 5*ABS<Ytic) 

4770  CLIP  Xmin-.5*ABS(Yt  i c ) , Xmax* . 5*ABS( Yt  ic ) , Ymi n- . 5*ABS< Yt  ic  ),  Y 

bul let*.5*ABS<Ytic) 

4780  GOSUB  Same_axes 

4790  SUBEXIT 

4800  Ray_trace:  Xmi n=Xorg=Yorg»0 
4810     ~        Xmax*5 

4820  INPUT  "WHAT  IS  THE  MAXIMUM  VALUE  OF  X  (INCHES)  (DEFAULT  *  3  INCH 

ES)  ?",Xmax 

4830  IF  Xmax<*Xmin  THEN  BEEP 

4840  '  IF  Xmax<=Xmin  THEN  DISP  "Xmax  MUST  BE  >  Xmin.  PLEASE  RE-ENTE 

R  THE  VALUES  IN  THE  CORRECT  ORDER." 
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4850  IF    Xmax<=Xmin    THEN    WAIT    2500     . 

4860  IP    XmaxOXmin    THEN    Ray    trace 

4870  Ymax=Y_bul let 

4880  Ymin*-Ymax 

4890    Ray_trace_scale:    LOCATE    15,139,25,109 

4900  GOSUB    Same 

4910  SCALE    Xmin-.5*ABS<Yt  i c ) , Xmax+. 5*ABS < Yt i c >,-Y_bu1  let-.25*AB 

S<Ytic), Y_bul let+.25*ABS<Yt  ic ) 

4920  CLIP    Xmin-.5*ABS<Yt i c > , Xmax+. 5*ABS< Yt ic ), -Y    bullet-. 25*AB 

S<Ytic), Y_bul let*.25*ABS(Yt  ic) 

4930  GOSUB  Same_axes 

4940  CLIP  Xmi  n, 100, Ymi n, Ymax 

4950  SUBEXIT 

4960  Chart  scale:  LOCATE  18,133,23,100        !  ALL  UNITS  IN  GDU'S 

4970  GOSUB  Same  !  DRAW  THE  DESIGN  CHART 

4980  Xt ic*<Xmax-Xmin)/19 

4990  SCALE  Xmi  n,  Xma;c+.  25*ABS<Xt  i  c  )  ,  Ymi  n,  Ymax+.  25*ABS<  Yt  i  c  ) 

5000  CLIP  Xmi n, Xmax, Ymi n, Ymax 

5010  GOSUB  Same_axes 

5020  FRAME 

5030  SUBEXIT 

5040  Digit_scale:  LOCATE  0,130,30,100         !  ALL  UNITS  IN  GDU'S 

5050  Xmax=Y_bullet  !  DRAW  THE  HISTOGRAM 

5060  Xmin*-Xmax 

5070  Xorg»Yorg*0 

5080  Ymax-1 

5090  Y»in=0 

5100  GOSUB  Same 

5110  SCALE  -Y  bullet-. 15*ABS< Yt i c ) , Y  bul 1 et +. 15*ABS( Yt i c > , -. 15*AB3< 

Ytic), 1*. 15*ABS<Ytic> 

5120  CLIP  -Y_bul let-. 15*ABS< Yt i c ) , Y  bul 1 et +. 15*ABS< Yt i c ) , - . 1 5*ABS < 

Ytic),  1  +  . 15*ABS(Ytic) 

5130  GOSUB  Same  axes 

5140  SUBEXIT 

5150  Same_axes:    CALL  Laxes<Xt i c , Yt i c , Xorg, Yorg, 1 ,  1 ,  2,  Xmi  n-Xf udge,  Xmax, Ymi n-Yf u 

dge, Ymax) 

5160  CLIP  Xmi n,  Xmax, Ymi n, Ymax 

5170  RETURN 

5180  Same:  Lx=LGT<Xmax-Xmi n> 

5190        Ly=LGT<Ymax-Ymin) 

5200        Xfudge=. 20*<Xmax-Xmi n) 

5210        Yfudge=.20*<Ymax-Ymin) 

5220  Tic_marks:  Testxt i c=FRACT<Lx)+<Lx<0) 

5230  Xt  ic  =  10MINT(Lx)-l)*<l  +  1.5*<:<Testxt  ic>Log2)  AND  <Test  xt  i  c<Log5>  ) 

♦4*<<Testxt ic>=Log5)  AND  (Test xt i c< =Log7) )♦£. 5*<Testxt i c >Log7) ) 

5240  Testytic=FRflCT<Ly)+<Ly<0) 

5250  Ytic*10~<INT<Ly)-l)*<l*l.5*<<Testytic>Log2)  AND  <Test yt i c<Log5) ) 

♦4#<<T«styt ic>*Log5)  AND  (Testyt i c<=Log7) )*6. 5*<Testyt i c >Log7) ) 

5260  RETURN 

5270      SUBEXIT 

5280  SUB  Laxes<Xtic,Ytic,Xorg, Yorg.Xmaj ,Ymaj,Minticsize,Xm in, Xmax, Ymin, Ymax) 

5290    OPTION  BASE  0 

5300-    ! 

5310    COM  Al pha, Tal pha,  Rho, Trho, Rho_i  nitial ,Trhoi , Rhol , Trhol , Rho2, Trho2 

5320    COM  F,Z3,Z4,Norm,Thetai .Tdelta 

5330    COM  Date*, Plot*, Fami  ly*, Chart*, Main*, Mainl*, Flag*, Y  hard* 

5340    ! 

5350        COM    Stuff *,  Redraw*, Di gi t i re*, Ray_trace* 

5360         COM    INTEGER    I ,  J,  Y0_1 oop,  Nray , Hrav_chart , Nray_f am i 1 y , Nray_st uf f 

5370         COM    INTEGER    Nray    t r ac e , Nr ay_densi t y , Add    ray , Nc , Ns, Nbet  a,  Fl  ag 

5380         ■ 

5390    COM  INTEGER  Lin«  count, Line  max,N  i ncrement , Hi t  tot al , Pse 1 ect , Hpi b 

5400    COM  INTEGER  Fami Ty , Surf_no 

5410    COM  REAL  Theta  cr i t i calTTo 1 , N 1 , N2 , N3, De 1 t a  ray , YO, Ya, Yb , Apert ure 

5420    ! 

5430  •  COM  Y_bul 1 et , Smax  f ami  1 y, Percent_i mage 

5440    COM  xT<»),  Yi<*>,Xc<*>,X2<»),  Y2< *7, X2max< *) ,  Y2max<*) 
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this  routine  is  used  to  draw  and  label  the  axes  for  the  following 
routines: 

1)  CHRRT 

2)  FAMILY 

3)  STUFF 

4)  DENSITY 
3>  RAY  TRACE 


5459  COM  Y3<*>,  Y4< * >  ,  Bet a< * > , 32< * ) , Xsurf max ( * ) , Ysurfmax<*> 

5460  ! 

5470  COM  Qa<*> ,  3max<*> ,  Alpha2<*>  ,Rho2<*>  ,Hi  t  <*) 
5480 
5490 
5500 
5510 
5320 
5530 
3540 
5550 
5560 
5570 
5580     Flagyl 

5590     DEG 

5600     LINE  TYPE  1 

5610     LDIR  0 

5620     LORG  5 

3630       IF  <Xmin>=Xmax>  OR  <Ymin>=Ymax)  THEN  SUBEXIT 

3640     GRAPHICS 

3650     Xfudge=. 02*<Xmax-Xmi n) 

5660     Yfudge=.02*<Ymax-Ymin> 

3670     Xmaj*l 

3680    Ymaj=l 

5690     Minticize=2 

5780         IF  <Digi t i ze*="Y"  >  OR  <Di gi 1 1 ze*=" y"  >  THEN  Digit_axis 

5710         IF  <Ray_trace*="Y" )  OR  <Ray_trace*="y" )  THEN  Ray  trace  axis 

5720         IF  CChartJa'-Y")  OR  (Chart $="y" >  THEN  Chart_axis 

5730         IF  (Fami ly*="Y">  OR  (Famil y**"y " )  THEN  Family_axis 

5748         IF  <Stuff*»"Y" >  OR  <  St  uf  f  *=»"y "  >  THEN  Stuff  axis 

5758  Chart__axis:  LINE  TYPE  3 

5760  GRID  Xt ic , Yt i c , Xorg, Yorg, Xmaj , Ymaj , 2*Mi nt i csi ze 

3770  LINE  TYPE  1 

5788  GOTO  Label x 

3798  Family_axis:  AXES  Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i csi ze 

5808  GOTO  Label x 

3810  Stuff_axis:  AXES  Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i csi ze 

3820  GOTO  Label x 

3830  Ray_trace_ax i s:  AXES  Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i csi ze 

3840  GOTO  Labelx_ray 

5858  Digit  axis:  AXES  . 1 , . 1 , 0, 0, 1 , 1 , 2 

5860  GOTO  Label x  d 

3878  Labelx:  FIXED  3 


5880 

LDIR  90 

3898 

LORG  8 

3900 

Parx: 

FOR  A*Xorg  TO  Xmax  STEP  ABS(Xtic) 

3910 

MOVE  A.Yorg-Yfudge 

3920 

LABEL  USING  5950; A 

3930 

IMAGE  DD.D 

3948 

IMAGE  DD.OD 

5950 

IMAGE  »,K 

5968 

NEXT  A 

3970 

Label y 

:  LDIR  0 

5988 

LORG  8 

3998 

Pary: 

FOR  A*Yorg  TO  Ymax  STEP  ABS<Ytic> 

6888 

MOVE  Xorg-Xfudge, A 

6818 

LABEL  USING  5950;A 

6820 

NEXT  A 

6030 

GOTO  Label 

6040 

Labelx 

ray:  LDIR  90 

6050 

LORG  8 

6060 

Parx_r, 

»y:    FOR  A*Xorg  TO  Xmax  STEP  ABS(Xtic) 

6070 

MOVE  A, Yorg-Yfudge 

6080 

LABEL  USING  5950;A 

6090 

NEXT  A 

6100 

Label  y. 

ray:  LDIR  8 

6110 

LORG  8 

!  FOR  CHART  AND  FAMILY 
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6120 
6138 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6230 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 


FOR  RAY  TRACE 


Pary_ray:    FOR  A»-Y_bullet  TO  Y  bullet  STEP  ABSCYtic) 
MOVE~Xorg-Xfudge7fl 

IF  A=0  THEN  LABEL  USING  5950;A 
IF  A=0  THEN  Next_a 
LABEL  USING  6170;A 
IMAGE  DD.D 
Next_a:        NEXT  A 

GOTO  Label 
Label x_d:  LDIR  90 
LORG  8 

FOR  A=-Y_bullet  TO  Y_bullet  STEP  .1 
MOVE  A, Yorg-Yfudge 
IF  A=0  THEN  LABEL  USING  5950JA 
IF  A=0  THEN  GOTO  Next  aa 
LABEL  USING  6170;A 
Next_aa:   NEXT  A 
Labely_d:  LDIR  3 
LORG  3 

FOR  A=0  TO  Y_bullet  STEP  .1 
MOVE  Xorg-Xfudge,A 
IF  A=0  THEN  LABEL  USING  5950;A 
IF  A«0  THEN  GOTO  Hexta 
LABEL  USING  6170;A  •   • 

Nexta:     NEXT  A 
Label_:  SETGU 
LOIR  0 
LORG  5 
CSIZE  2.5 

IF  <Digi t i ze*="Y">  OR  <Di gi t i ze*="y" )  THEN  Digit_1ab*l 
IF  <Ray_trace*="Y" >  OR  <Ray_trace*="y " >  THEN  Ray  trace_label 
IF  <  Chart  **"Y":>  OR  CChart S="y " >  THEN  Chart_label~ 
IF  (Fami ly*="Y")  OR  (Fami 1 y*="y" >  THEN  Fami 1 y_l abel 
IF  <Stuff*="Y")  OR  <Stuff*='V 
Chart_label:  Cent erx=?4. 00 
Centery=64 
j 

MOVE  .5*Centerx,9 
LABEL  USING  6500;F 
IMAGE  "Design  Focal  Point  : 

MOVE  1.5*Centerx,9 
LABEL  USING  6530 ; Nr ay_char t 
IMAGE  "Number  of  Rays  :  ",K 

MOVE  ,5*Centerx,5 
LABEL  USING  6560;Alpha 
IMAGE  "Alpha  :  "DD.DD"  deg" 

MOVE  1.5*Centerx,5 
LABEL  USING  6590; N2 
IMAGE  Hn2  :  ".D.DDDDD 


)  THEN  Stuff  label 


, DD.DD,"  inches" 


CSIZE  3 

MOVE  Centerx,  15 
LABEL  "S  :  Distance  Along  Refracted  Ray  in  the  Lens 


<  Inches  > 


6640 
6650 
666d 
6678 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 


LDIR  90 

MOVE  .8,Centery 
LABEL  "Alpha  2  :  Ang 

MOVE  4.8,Centery 
LABEL  "the  Second  Surface 


e  of  the  Tangent  Line  at" 
Degrees 


)' 


GOTO  End_1abel 
Fami  ly_label  :  Centerx=Centerx_fami  1 y=72. 5 
Centery*Centery  fami1y=66.5 


IF  <Stuff*»"Y".>  OR 
MOVE  .5*Centerx,9 
LABEL  USING  65O0;F 
MOVE  1.5*Centerx,9 


<Stuff*="y">  THEN  3tuff_label 
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6780 
6790 
6860 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6930 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7870 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7130 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 


LABEL  USING  6533; Nray_f am l 1 y 

MOVE  .5*Centerx,5 
LABEL  USING  6560;Alpha 

MOVE  1.5*Centerx,5 
LABEL  USING  6590JN2 
I 

MOVE  Centerx, 23 
LABEL  "Distance  Along  GLM  Axis  (inches)" 
CSIZE  3 

MOVE  Centerx, 15 
LABEL  "FAMILY  OF  SURFACES" 
LDIR  90 

MOVE  1.5,Centery 
LABEL  "Radial  Distance  from  the  Axis  (inches)" 
! 

GOTO  Endjabel 
Stuff_label:  Centerx=?2.5 
Centery=66. 5 
! 

MOVE  .5*Centerx,9 
LABEL  USING  6500JF 

MOVE  1.5*Centerx,9 
LABEL  USING  6530; Nr ay_st uf f 

MOVE  . 5*Centerx,5 
LABEL  USING  6560;A1pha 

MOVE  1 .5*Centerx, 5 
LABEL  USING  6590;N2 

MOVE  Centerx, 5 
LABEL  USING  7870; Aperture 
IMAGE  "Aperture  :  "DD.DDD"  inch" 
! 

MOVE  Centerx, 23 
LABEL  "Distance  Along  GLM  Axis  (inches)" 
CSIZE  3 

MOVE  Centerx,  15 
LABEL  USING  7140; Family 
IMAGE  "SURFACE  NUMBER  "K 
l 

LDIR  90 

MOVE    i.5,Centery 
LABEL    "Radial     Distance    from    the    Axis    (inches)" 


GOTO    End_labe1 
Ray_trace_l abel :    Centerx«72.5 
C«ntery»62. 5 
! 


!  CHANGE  IN  GRAPH  AS  WELL 


MOVE  1.5*Centerx,9 
LABEL  USING  6530; Nray_t race 

MOVE  .5*Centerx,  10 
LABEL  USING  7230;  Rho_i ni t i al 
IMAGE  "Incident  Ray  Angle  :  ",3D.DD,"  deg" 

MOVE  .5*Centerx,6 
LABEL  USING  7070; Aperture 

MOVE  1.3»Centerx,6 
LABEL  USING  6590; N2 

MOVE  .5*Centerx,2 
LABEL  USING  6560;Alpha 

MOVE  Centerx, 23 
LABEL  "Distance  Along  the  GLM  Axis  (  inches  )' 
! 

CSIZE  3 

MOVE  Centerx, 15 

LABEL  USING  74l0;Family 

IMAGE  "SURFACE  NUMBER  ",K 

1 


LDIR 
MOVE 


90 

1. 3, Centery 
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7450 

7460 

7470 

7430 

7490 

7300 

7310 

7320 

7530 

7340 

7330 

7360 

7370 

7380 

7390 

7600 

7610 

7620 

7630 

7640 

7630 

7660 

7670 

7630 

is" 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7930 

7960 

7970 

7988 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8030 

3090 

8100 


LABEL  "Radial  Distance  From  the  Axis  <  inches  )" 
! 

GOTO  End_l abel 
D  i  g  i  t  _  1  ab  e  1  :  Center  x  =  61. 56 
Cent ery=65 

i 

MOVE  1.5*Centerx,  13 
LABEL  USING  6530; Nray_t race 

MOVE  Centerx/2,9 
LABEL  USING  7550 ; H i t_t ot al 
IMAGE  "Number  of  Hits  on  the  Image  Plane  :  ",K 

MOVE  1.5*Centerx,9 
LABEL  USING  75S0; Perc ent_i mage 
IMAGE  "'<    of  Rays  to  Image  Plane  :  ",3D.DD 

MOVE  1.5*Centerx,5 
LABEL  USING  7610;Z3 
IMAGE  "Image  Plane  :  ",DD.DD,"  inches" 

MOVE  .5*Centerx,5 
LABEL  USING  7640; N_i ncrement 
IMAGE  "Number  of  Increments  [0,1.13  :  ",K 
I 

CSI2E  3 

MOVE  Centerx,20 
LABEL  "Normalized  Number  of  Hits   vs   Distance  from  th< 

MOVE  Centerx'2, 13 
LABEL  USING  7710;Family 
IMAGE  "SURFACE  NUMBER  ",K 
I 

End_1abel:  CSI2E  15/4.54 
LDIR  0 
LORG  5 
SETUU 
SUBEND 
SUB  Xlpos<X,Y> 
OPTION  BASE  0 
! 

COM  Alpha,Talpha, Rho,Trho,Rho_initial,Trhoi,Rhol,Trhol,Rho2,Trho2 
i 


INTEGER  2 
DEG 
DEF  FNYl(Y)=Y*Talpha/<Talpha-Trhoi ) 


DEF  FNXKY)=Y'Talpha 

Y-FNYKY) 
X*FNXKY> 
SUBEND 


!  FINDS  THE  Y-VALUE  OF  THE  INTERCEPT 
!  OF  THE  RAY  AND  THE  FIRST  SURFACE 
!  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 
'  AND  THE  FIRST  SURFACE 


SUB  Char 


One:   FOR  2=0  TO  79 

IF  2-79  THEN  7960 
PRINT  CHR*<228>; 

IF  2=79  THEN  PRINT  CHR*<223> 
NEXT  2 
SUBEXIT 
SUBEND 
SUB  Dialogue 
OPTION  BASE  0 
! 

COM  Alpha,  Tal  pha,  Rho,  Trho,  Pho_i ni  t  i  a I  ,  Trhoi , Rhol , Trho 1 , Rho2, Trho2 

COM  F, 23, 24, Norm, Thet ai , Tdel ta 

COM  Date*,Plot*,Fsmi  1  y*,  Chart*, Mai n*,Maml*,F1ag*, Y_hard* 

! 

COM    Stuff*,Redraw*,Digitize», Ray_trace* 

COM    INTEGER    I , J, Y0_1 oop  ,  Nr ay , Nray_chart ,  Nr ay_f ami  1 y, Mr av_st uf f 
■    COM    INTEGER    Nr ay_t r ace , Nr ay_dens 1 1 y , Add_r ay ,  Nc  ,  Ns  ,  Nbet a, Fl ag 


141 


8110 
8120 
8130 
8140 
8150 
3160 
8170 
8180 
8190 
8200 
8210 
8220 
3230 
8240 
3250 
8260 
3270 
3280 
8290 
8300 
8310 
8320 
8330 
3340 
8350 
8360 
3370 
8380 
8390 
8400 
8410 
8420 
3430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
3520 
3530 
3540 
8550 
3560 
8570 
8580 
8590 

« 

8600 

8610 

8620 

8630 

rf  act 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 

8740 


WHEN  Yfl  *  9  THEN  THEN  THE  BORDERS  OF  THE 
APERTURE  ARE  ILLUSTRATED  BY  DRAWING  A 
RAY  AT  Y=Ya  AND  Y=Yb.  THIS  IS  DONE  BY 
ADDING  A  RAY  TO  ALL  NRAY  x  DECLARATIONS 


COM  INTEGER  L i ne_c ount , L i ne_max, N  i ncrement , Hi t_t ot al , Pse 1 ec t , Hp i b 

COM  INTEGER  Fami 1 y , Surf_no 

COM    REAL    Th<ta_cri  t  ical7"To1  ,  Nl ,  N2,  N3,  Del  ta_rav,  YO,  Ya,  Yb,  Aperture 

! 

COM    Y_bu  1  1  et  ,  Smax_f am  l  1 y, Per c  ent_i mage 

COM  xT<*>,YK*),Xc"<*),X2<*>  ,  Y2<*),X2max<*> ,  Y2max<*) 

COM  Y3<*),Y4<*),Beta<*),S2<:*), Xsurfmax(*) , Ysurfmax<*) 

! 

COM  Qa<.*),Smax<*) ,  Al  pha2<*)  ,Rho2<*>  ,Hi  t  <*) 
! 

! 

!    THIS  ROUTINE  INITIALIZES  MOST  OP  THE  VARIABLES  USEIT  IN  THE  PROGRAM 
! 

DEG 
Ini  t i al i  ze_top: Al pha=21 

Talpha=TAN(A1pha) 

Tol». 00001 

23»Z4=50 

Nl*l 

N2*4 

N3-1 

F=4 

Y  bul let=l. 1 

Ya=0 

Yb»Y_bul let 

Aperture=Yb-Ya 

Add_ray=0 

Nray=10 

Rho_initial=Rho=0 

Trhoi  =Trho»TAN<Rho_i  nl t i  al ) 

Li  ne_count =0 

L  i  ne_max=45 

N_i  ncrement  =  100 

Pse1ect*7 

Hpib»5 

P1ot*»"C" 

Date*=" " 

Fami 1 y*»"N" 

Stuff*=MN" 

Digit  ize*="N" 

Redraw*="N" 

Ray_t  p ac  e  * ■ " N " 
PRINT  PAGE, "Note  to  the  operator:   " 

PRINT  LIN<2),"    When  a  request  for  information  is  placed  on  the  screen" 
PRINT  "two  options  exist:" 

PRINT  LINO),"      1)  key  in  the  required  information  and  PRESS  CONT.  " 
PRINT  "      2)  PRESS  CONT  if  the  data/parameter  or  other  response  " 
PRINT  "         has  not  or  uill  not  change  from  the  previous  entry.  If  in" 
PRINT  "         doubt,  key  in  the  correct  response  or  data  and  PRESS  CONT. 

PRINT  LIN<2), "PRESS  CONT" 

PAUSE 

PRINT  PAGE, "The  sign  convention  is  :" 

PRINT  LINO),"       1)  the  origin  is  placed  at  the  vertex  of  the  first  su 

PRINT  "         and  the  GLM  axis." 
PRINT  "       2)  distances:  positive  to  the  right  of  the  origin." 
PRINT  "  positive  above  the  origin  <Radial  distance)." 

PRINT  "  positive  out  of  the  meridian  plane  (screen)." 

PRINT  "  <ie.  a  right  hand  system.)" 

PRINT  "       3)  angles:  POSITIVE  IF  counter-clockwise" 
PRINT  "  rotation  from  the  GLM  axis  to  the  ray" 

PRINT  LIN(2), "PRESS  CONT" 
PAUSE 
Alpha:  PRINT  PAGE,"     Alpha  is  the  angle  of  inclination  <ie.  the  cone" 

PRINT  "half-angle)  of  the  FIRST  surface  with  respect  to  the  GLM-axis 
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8730  PRINT  LINO),"    The  current  value  of  ALPHA  1  s" ;  Al  pha:  "degrees" 

8760  INPUT  "WHAT  IS  NEW  VALUE  OF  ALPHA  ( DEGREES >?", A 1 pha 

8770  Talpha=TAN(Alpha) 

3780  Index:  PRINT  PAGE,"     The  lens  system  is  assumed  to  be  operating  in  air." 

8790     PRINT  "Therefore  the  first  index  of  refraction  is  defined  as  nl  =  1 . 0OO00 
■I 

8800     PRINT  LIN<2>,"     It  is  assumed  that  nl  <  n2" 

8810     PRINT  "  and  n2  >  n3." 

8820  N2:  INPUT  "WHAT  IS  n2  (DEFAULT  VALUE  =  4)  ?",N2 

8830  N3:  INPUT  "WHAT  IS  n3  •-DEFAULT  VALUE  =  1)  ?",N3 

8840        IF  N3<N2  THEN  Thet a_cr l t l c al =ASN(N3'N2 ) 

8830        IF  N3>N2  THEN  BEEP 

8860        IF  N3>N2  THEN  DISP  "n2  MUST  BE  >  n3.  PLEASE  RE-ENTER  n2  AND  n3." 

8870        IF  N3>N2  THEN  WAIT  4O00 

8880        IF  N3>N2  THEN  N2 

8890  Rho_initial:  PRINT  PAGE,"    The  rays  incident  on  the  first  surface  are  " 

3900  PRINT  "assumed  to  be  parallel  to  the  GLM-axis.  " 

8910  PRINT  LIN(5), "PRESS  CONT" 

8920  PAUSE 

8930  Rho=Rho  initial 

8940  Trho-TAN(Rho) 

8950  CALL  Snell        !  COMPUTE  RH01 

8968  Y_bullet:  PRINT  PAGE,"    The  GLM  is  assumed  to  be  symmetric  around  the  long 

i  tudi nil " 

3970  PRINT  "axis.  The  maximum  radius,  called  Y_bul1et,  is  ";Y  bullet;" 

i  nches. " 

8980  PRINT  LIN(2),"    If  your  design  requires  a  different  radius,  plea 

se" 

8990  PRINT  "enter  the  new  value  now." 

9000  INPUT  "Y_bullet  < INCHES)  ?",Y_bul1et 

9010  Aperture:  PRINT  PAGE,"    The  aperture  is  the  difference  in  radial  distance 

from  the  GLM  axis," 

9020  PRINT  "projected  onto  the  first  surface,  into  which  light  is  alio 

wed  to  enter" 

9038  PRINT  "the  GLM  optical  system.  The  parameter  values  are:" 

9840  PRINT  LIN(2),"      Ya  ■  the  lower  aperture  limit  (default  value  = 

";Ya; "inch)" 
9050  PRINT  "      Yb  =  the  upper  aperture  limit  (default  value  =  ";Yb;" 

inch)" 

9068  PRINT  "  and  is  always  less  than  or  equal  to  Y_bullet." 

9070  INPUT  "WHAT  IS  Ya  (INCHES)  ?",Ya 

9080  INPUT  "WHAT  IS  Yb  (INCHES)  ?",Yb 

9090  IF  Ya>»Yb  THEN  BEEP 

9100  IF  Ya>=Yb  THEN  DISP  "Ya  MUST  BE  <  Yb.  Please  enter  correct  val  u 

•s." 

9110  IF  Ya>»Yb  THEN  WAIT  3008 

9120  IF  Ya>=Yb  THEN  Aperture 

9130  IF  Yb>Y_bullet  THEN  BEEP 

9140  IF  Yb>Y~bu11et  THEN  DISP  "Y_bullet  MUST  BE  >  Yb:  PLEASE  RE- 

ENTER Y_bu11et,Ya  AND  Yb7" 

9130    *  IF  Yb>Y_bullet  THEN  WAIT  3000 

9160  IF  Yb>Y  bullet  THEN  Y  bullet 

9170  Aperture«Yb-Ya 

9180  IF  Ya<>0  THEN  Add_ray»l 

9190  Nray:  PRINT  PAGE,"    The  program  will  trace" ; Nray ; "  rays  through  the  system 

us  less  " 
9200       PRINT  "you  specify  another  value." 

9210       PRINT  LIN(2) , "CAUTION:  Entering  too  many  lines  will  clutter  the  des 
ign  chart . " 
9220  PRINT  "  Try";NrayJ"  rays,  then  decide  if  you  want  more 

or  1  ess  rays. " 
9230        INPUT  "  HOW  MANY  RAYS  DO  YOU  WANT  THE  PROGRAM  TO  TRACE  ^".Nray 
9240         IF  Nray<2  THEN  BEEP 

9250  IF  Nray<2  THEN  DISP  "YOU  MUST  USE  AT  LEAST  TWO  <2)  RAYS.  PLEASE  R 

E-ENTER  THE  CORRECT  VALUE." 
9260  •        IF  Nray<2  THEN  WAIT  2500 
9270         IF  Nray<2  THEN  Nray 
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9280    Focus:    PRINT    PAGE,"         The    focal    point    is    the    location    on    the    GLM-axis    at    wh 

ich    " 

9290         PRINT  "you  want  all  of  the  rays  to  pass  through." 

9300         PRINT  LIN<2>,"    The  minimum  value  of  the  focal  point  is  ";Y_bullet/ 

Talpha; "  i  nches. " 

9310         PRINT  "This  value  has  been  chosen  to  prevent  the  angle  of  the  tangen 

t  1  i  ne" 

9320         PRINT  "of  the  second  surface  from  exceeding  90  degrees  at  y  =  ";Y  bu 

1  let 

9330         PRINT  "<ie.  at  y  *  Y_bullet  inches  )." 

9340  PRINT  LIN<2>,"    The  default  value  is  ";F;"  inches." 

9350         INPUT  "WHAT  IS  THE  VALUE  OF  THE  FOCAL  POINT  ?",F 

9360  Date:  PRINT  PAGE 

9370        INPUT  "UHAT  IS  TODAY'S  DATE  ^>",Date* 

9380  Start:  PRINTER  IS  16 

9390  Gymnastics:  SUBEND 

9400  SUB  Chart 

9410    OPTION  BASE  0 

9420    ! 

9430    COM  Al pha, Tal pha,  Rho, Tr ho, Rho_i ni t  i  al , Trhoi , Rho 1 , Trhol , Rho2, TrhOi 

9440    COM  F, 23, 24, Norm, Thetai ,Tdel t a 

9450    COM  Date*, Plot*,  Fami  ly*,  Chart*, Main*, Mainl*, Flag*, Y_hard* 

9460    ! 

9470    COM  Stuff *, Redraw*, Di gi t i :e>, Ray_trace* 

9480    COM  INTEGER  I , J, Y0_1 oop , Nray , Nray_chart , Nray_f ami  1 y , Nray_st uf f 

9490    COM  INTEGER  Nr ay _t  race ,  Nray  densi  t"y ,  Add_r ay ,  Nc  ,  Ns ,  Nbet  a,  F 1  ag 

9500    ! 

9510    COM  INTEGER  Li ne_c ount , L i ne_max, N_i ncrement , H i t_t ot al , Pse 1 ec t , Hpi b 

9520    COM  INTEGER  Family, Surf  no 

9530    COM  REAL  Thet  a_cr  i  t  i  c  al  7"To  1  ,  Nl ,  N2,  N3 ,  De  1 1  a_ray ,  Y0,  Ya,  Yb,  Apert  ure 

9540    ! 

9550    COM  Y_bul 1 et , Smax_f ami  1 y, Percent_i mage 

9560    COM  Xl<*),  YU*),Xc<*),X2<*>,  Y2<*7, X2max< *> ,  Y2max<*) 

COM  Y3<*>, Y4<*),Beta<*>,S2<*),Xsurfmax<*), Ysurfmax<*> 

! 

COM  Qa<*),Smax<*>,  Al pha2<*> , Rho2<*> , Hi t <*> 


9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 
9790 
9800 
9810 
9820 
9830 


THIS  ROUTINE  COMPUTES  AND  DRAWS  A  FAMILY  OF  CURVES  REPRESENTING  THE 
RELATIONSHIP  BETWEEN  THE  DISTANCE  ALONG  THE  RAY  REFRACTED  AT  THE  FIRST 
SURFACE  OF  THE  LENS  AND  THE  SLOPE  (DERIVED  FROM  SHELL'S  LAW;  REQUIRED 
TO  SUCCESSFULLY  REFRACT  THAT  RAY  THROUGH  THE   DESIRED  FOCAL  POINT. 

THE  NOTABLE  VARIABLES  ARE: 

1)  BETA  :  THE  ANGLE  OF  A  LINE  DRAWN  FROM  THE  FOCAL  POINT  TO  THE 

INTERCEPT  OF  THE  RAY  AND  THE  FIRST  SURFACE 

2)  RH01  :  THE  ANGLE  OF  THE  REFRACTED  FROM  THE  FIRST  SURFACE  WITH 

RESPECT  TO  THE  GLM-AXIS  <REF) 
3>  RH02  :  THE  REQUIRED  ANGLE  OF  THE  REFRACTED  RAY  FROM  THE  SECOND 
SURFACE  WRT  REF 

4)  HIGH  :  RHOl  >  BETA 

5)  LOU  :  RHOl  <  BETA 

6>  ALPHA2  :  THE  SLOPE  OF  THE  SECOND  SURFACE  WRT  REF  REQUIRED  TO 
SATISFY  SNELL'S  LAW 

7)  S  :  THE  DISTANCE  ALONG  THE  RAY  REFRACTED  FROM  THE  FIRST 

SURFACE,  MEASURED  FROM  THE  FIRST  SURFACE 

8)  Q  :  INTERCEPT  POINT  OF  THE  INCIDENT  PAY  AND  THE  FIRST  SURFACE 

9)  A  :  X-INTERCEPT  OF  THE  RAY  REFRACTED  AT  Q 
10)  QA  :  DISTANCE  FROM  Q  TO  A 

DEG 


9840        Nray    chart=»Nray 

9850  IF~<3tuff*»"Y">    OR    <Stuff**"y">    THEN    Nray    chart =Nray_stuff 

9860         Chart*="Y" 

9878      CALL  Header 

9880    Flag*0 

9890  Draw  axes:    CALL  Plot 
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COMPUTE  BETA  FOR  EACH  RAY 


!  COMPUTE  THE  DISTANCE  ALONG  THE  REFRACTED 

!  RAY  TO  THE  X-INTERCEPT 

!  THIS  IS  THE  MAX  ALLOWED  VALUE  OF  S 

!  COMPUTE  ALPHA2  AND  S  FOR  EACH  RAY 


9900  Beta:  FOR  1  =  1  TO  Nray_chart      ! 

9910  Tbeu=YKI)/(XHI)-F) 

9920  Beta<I)*ATN<Tbeta> 

9930  A»XKI)-Y1<  I  >  'Trhol 

9940  Qa2=<Xl< I>-A>~2+Y1< I)~2 

9950  wa<I)=SQR<Qa2> 

9960  NEXT  I 

9970    Chart:    FOR    Nbeta=l    TO    Nray_chart 

9980  S0-0 

9990  Smax=Qa<Nbeta> 

10000  Nstep=Smax/20 

10010  J-0 

10020  S:   FOR  S=S0  TO  Smax  STEP  Nstep 

10030  J=J*1 

10040  IF  ABS<Bet.a<-Nbera>)>ABS^Rhol)  THEN  High 

10050  IF  S<0  THEN  Next_beta 

10060  Low:     CALL  Low_regi on<S, Al pha2, Nbeta) 

10070  IF  Tdelta<0  THEN  Negative 

10080  IF  Rho2>0  THEN  Negative 

10090  IF  A1pha2>=?0  THEN  Negative 

10100  IF  Line_count >Line_max  THEN  CALL  Header 

10110  PRINT  USING  Image_data; Nbet a, Beta<Nbet a) , Thetai , Norm, Rho2, 3, Al pha2 

10120  Li ne_count =L i ne_count*l 

10130  GOSUB  Graph 

10140  GOTO  Next_s 

10150  High:    CALL  Hi gh_regi on<S, Al pha2, Nbet a) 

10160  IF  Tdelta<8  THEN  Negative 

10170  IF  Rho2>0  THEN  Negative 

10180  IF  A1pha2>=90  THEN  Negative 

10190  IF  Line_count  >Lme_max  THEN  CALL  Header 

10200  PRINT  USING  I mage_dat a;  Nbet a,  Bet aCNbet a) ,  Thet ai  ,  Norm,  Rho2,  S , Al pha2 

10210  Line  count =L i ne_count+l 

10220  GOSUB  Graph 

10230  GOTO  Next  s 

10240  Zero  cross  over : A=F*SIN< Al pha>/SIN< Al pha+AB3<Bet aCNbet a> > )    !THIS 

10250  B»S*COS(ABS<Beta<Nbeta))-ABSCRhon)   !  CONDITION  EXISTS  IN 

10260  D=A-B                         !  HIGH  WHEN  ALPHA2  >  90  DEGREES 

10270  E»S*SIN<ABS<Beta<Nbeta>>-ABS<Rhol>> 

10280  Tdelta=E/D 

10290  Arho2=ABS<Beta<Nbeta))+ATN<Tdelta> 

10300  IF  Arho2<0  THEN  Negative 

10310  Rho2*-l*Arho2 

10320  Norm  z  cross:  A=C0SCRho2>-N2''N3*C0S<Rhol  > 

10330  "                 B=N2/N3*SIN<ABS<Rhol))-SIN<ABS<Rho2>) 

10340  TnormBB^A 

10350  Norm»ATN<Tnorm> 

10360  Th«tai=Norm+ABS<Rhol> 

10370  Th«tar=Norm+ABS<Rho2> 

10380  A1pha2»Nornn-90 

10390  IF  Line_count >Line_max  THEN  CALL  Header 

10400  PRINT  USING  Image_dat a; Nbet a, Bet a<Nbet a) , Thet ai , Norm, Rho2, S , A 1 pha2 

10410  Line_count=Li ne  count+1 

10420  GOSUB  Graph   ~ 

10430  Next  s:Smax<Nbeta)-S 

10440  Alpha2(Nbeta>*A1pha2 

10450  NEXT  S 

10460  S»S-Nstep 

10470  IF  S<Qa<Nbeta>  THEN  Negative 

10480  Next_beta:   IF  Line_count >Li ne  max  THEN  CALL  Header 

10490  PRINT 

10500  Line  count=Line  count+1 

10510  Flag=2                      !  LABEL  THE  PLOT  WITH  NBETA 

10520  GOSUB  Graph 

10530  Flagyl   !  RESET 

10540  NEXT  Nbeta 

10550  -  Flag=3                               !  TELL  GRAPH  THIS  IS  THE  LAST  BETA 

10560  CALL  Graph 
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18570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 

10710 

10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10390 
10900 
10910 
10920 
10930 
1094O 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11820 
11030 
11840 
11050 
11060 
11070 
11080 
11098 
11188 
11118 
11128 
11138 
11148 
11158 
11168 
11178 
11188 
11198 
11280 
11218 
11220 
11230 


Chart*="N" 

CALL  Header_end 
SUBEXIT 
Negative:   IF  Nstep<Tol  THEN  Next_beta 

S»S-Nstep   !  RH02  <  0  FOR  LOW  OR  ALPHA2  >  0  FOR  HIGH  OR  LOW 

so*s 

Nstep=Nstep/10 
Rho2=0 
GOTO  3 
Graph:  GRAPHICS 
SETUU 

LINE  TYPE  1 
LDIR  0 
LORG  2 
CSI2E  2.5 

IF  J»l  THEN  MOVE  3,Alpha2 

IF  J=2  THEN  DRAW  3,Alpha2     !  DO  NOT  CHANGE 
IF  <J>=3>  AND  <Flag<>2>  THEN  DRAW  S,Alpha2  !  DO  NOT  CHANGE 
IF  Flag=2  THEN  LABEL  USING  l0770;Nbeta 
CSI2E  15^4.54 
IMAGE  K 
RETURN 
Image_data: IMAGE  DDD,  4X,  3< 4D. 3D, 5X> , 4D. 3D, 5X, 2D. 3D, 5X, 4D.  3D 
!  IMAGE  STATEMENT  IS  FOR  Nbet a, Bet a< Nbet a) , Thet ai , Norm, Rho2, S, A  1 pha2 
SUBEND 
SUB  Low_region<S,Alpha2, INTEGER  N) 
OPTION  BASE  0 
i 

COM  Alpha,Talpha,Rho,Trho, Rho_i  ni  t  i  al ,Trhoi ,Rhol,Trhol,Rho2,Trho2 

COM  F, 23, 24, Norm, Thetai , Tdelta 

COM  Date*, PI ot $, Fami 1 yS, Chart *, Mai n*, Mai nl *, Fl ag*, Y_hard* 

! 

COM    Stuff*, Redr aw *,Digitize*, Ray_trace* 

COM    INTEGER    I, J, Y0_1 oop, Nray, Nrav_chart , Nray_f ami  1 y, Nray_stuf f 

COM    INTEGER    Nray_trace, Nray_densi  ty, Add_ray , Nc, Ns, Nbet  a, Fl ag 

! 

COM  INTEGER  Li  ne_count , Li ne_max, N_i  ncrement,Hit_total ,Pselect,Hpib 
COM  INTEGER  Fam i 1 y , Surf_no 

COM  REAL  Theta_cri t  i  cal , Tol , Nl , N2, N3, Del ta_ray, Y0,  Ya, Yb, Aperture 
i  • 

COM  Y_bul 1 et , Smax_f  ami  1 y, Percent_i  mage 

COM  xT<*>, Yl<*) ,Xc<*) , X2<*>, Y2<*>,X2max<*>, Y2max<*) 

COM  Y3<*>, Y4(*),Beta<*),S2C*) , Xsurf max<*> , Ysurf max<*> 

i 

COM  Qa<*>,Smax(*>,Alpha2<*>,Rho2<*>,Hit<*> 
! 

DEC 
Td«lta:A=SIN<Alpha+ABS<Beta<N>)>   !  COMPUTE  RH02  »  f<S) 

B=F*SIN<Alpha)/'A 

C=S#COS<ABS<Rhol>-ABS<Beta<N>>) 

D-B-C 

E*S*SIN<ABS<Rhol>-ABS<B«ta<N>>> 

Td«1ta=E/'D 

Delta*ATN<Tde1ta) 

Arho2=ABS<Beta<N) ) -Delta 

Rho2*-l*Arho2 
Normal :A»C0S<Rho2)-N2/N3*C0S<Rhol)   !  COMPUTE  ALPHA2  =  f<RH02) 

B»SIN<ABS<Rho2>>-N2'N3*SIN<ABS<Rhol>> 

Tanorm^B/A 

Ar»orm»ATN(Tanorm) 

Thetai  =Anorm-ABS<Rhol> 

Thetar=Anorm-ABS<Rho2> 

Norm*- 1  *Anor  fn 

Al pha2»90+Norm 
SUBEND 

SUB  High  regi on( S. Al pha2 , INTEGER  N) 
0PTI0N~BASE  0 
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11246 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11330 

11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740. 

11750 

11760 

11770 

11780 

11790 

11800 

11810 

11820 

11830 

11840 

11850 

11860 

11870 

11880 

11890 

11900 


COM  Alpha,Talpha,Rho,Trho,Rho_initial  ,  Trhoi  ,  Rhol  ,  Trhol ,  Rho2,  Tr-ho2 

COM  F, 23, 24, Norm, Thetai , Tde 1 ta 

COM  Date*,Plot*,Fami 1 v*, Chart*, Mai  n*, Mai  nl*,F1 ag*, Y_hard* 

I 

COM    Stuff*,Redraw*,Digitire*, Ray_trace* 

COM    INTEGER    I , J, Y0_1 oop, Nray , Nray_chart , Nray_f ami  1 y , Nray_stuf f 

COM    INTEGER    Nray_t  race ,  Nr  ay_dens  it  y ,  Add_r  ay ,  Nc  ,  Ns ,  Nbet  a,  F 1  ag 

! 

COM  INTEGER  L  i  ne_;  ount  ,  L  i  ne_max,  N_i  ncrement ,  Hi  t  t  ot  al  ,  Pse  1  ec  t  ,  Hp  i  b 
COM  INTEGER  Fam l 1 y , Surf_no 

COM  REAL  Theta_cr i tical ,Tol , Nl , N2, N3, Del ta_ray, Y0, Ya, Yb, Aperture 
!  — 

COM  Y_bul 1et,Smax_fami ly,Percent_image 

COM  xT<*>,Yl<*>,Xc<*>,X2<*>,Y2<#7,X2»ax<*>,Y2m*x<*:> 

COM  Y3<*) , Y4<*) , Beta(*) , S2<*> , Xsurf max< *) , Ysurf max< * ) 

! 

COM  Qa<*) , SmaxC*) , A1pha2<*) , Rho2<*), Hi  t  <*) 

DEG 
High:  A=SIN<Alpha+ABS<Beta<-N)  )  )   !  COMPUTE  RH02  =  f<S) 
B=F*SIN<Alpha)/A 

C=S*COS<ABS(Beta<N))-ABS(Rhol)) 
D  =  B-C 

E=S*SIN<ABS<Beta<N))-ABS<Rhol)) 
Tdel ta=E'D 

Arho2=ABS<Beta<N) )+ATN<Tdel ta) 
Rho2=-l*Arho2 
Normal : A=N2/N3*SIN< ABSCRho 1 ) )-SIN( ABS(Rho2) )        !     COMPUTE    ALPHA2    =    tVRH02) 
B=N2/ N3*C0S< Rhol) -COS <Rho2) 
Tanortn=A/B 
Anorm=ATN(Tanorm) 
Thetai=ABS(Rhol)-Anorm 
Thetar=ABS<Rho2)-Anorm 
Norm»-l*Anorm 
Al pha2=90+Norm 
SUBEND 
SUB    Fami 1 y 

OPTION    BASE    9 
i 

COM    Alpha,Talpha,Rho,Trho,Rho_ initial , Trhoi  ,  Rhol, Trhol, Rho2,Trho 2 

COM    F, 23, Z4, Norm, Thetai , Tdel ta 

COM    Date*, PI  at*, Fami 1 y*, Chart *, Mai n*, Mai  nl*,Fl ag*, Y_hard* 

! 

COM  Stuff*, Redraw*, Digitize*, Ray_trace* 

COM  INTEGER  I , J, Y0_1 oop, Nray, Nray_chart , Nray_f ami  1 y , Nray_stuf f 

COM  INTEGER  Nray_t race , Nray_densi t y , fldd_ray , Nc , Ns , Nbet a, F 1 ag 

COM  INTEGER  L i n«_count , L i n*  max,N  i ncrement , Hi t  tot al , Psel ec t , Hpi b 

COM  INTEGER  Fami 1 y, Surf _no 

COM    REAL    Theta_cri t ical , Tol , Nl , N2, N3, Del ta_ray, Y0, Y a, Yb, Aperture 

! 

COM  Y  bul 1 et , Smax_f ami  1 y, Percent  image 

COM  x7<*),YK*),Xc<*),X2<*),  Y2<*7,X2max<*),Y2max<*) 

COM  Y3< *>, Y4 <*), Bet a< *>, 32 <*), Xsurf max <*), Ysurf max<*) 

i 

COM  Qa<*), SmaxC *),Alpha2<*),Rho2<*), Hi t<*) 

THIS  ROUTINE  COMPUTES  AND  DRAWS  A  FAMILY  OF  SURFACES  USING  THE 
THE  DESIGN  CHART  DRAWN  IN  SUBROUTINE  CHART 

THE  ROUTINE  TAKES  THE  END  POINTS  OF  EACH  CURVE  OF  ALPHA2  VS  S 
AND  DRAWS  A  SURFACE  USING  ALPHA2  TO  DRAW  A  LINE  TO  INTERCEPT  THE  NEXT 
RAY.  THESE  SURFACES  ARE  THEN  THE  MAXIMUM  SURFACES  FOR  EACH  PARAMETER 
BETA. 

WHEN  STUFF*="Y"  THE  ROUTINE  GOES  THROUGH  THE  I  LOOP  ONCE  (is  FOR 
ONE  SURFACE)  AND  THE  J  LOOP  NRAY  STUFF  TIMES. 
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11910 

11929 

11930 

11940 

11930 

11960 

11970 

11980 

11990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12130 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

rf 

12420 

rf 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12310 

12320 

12530 

12540 

12550 


DEG 

Fami ly**"Y" 

CALL  Header 
Ymax=Y_bul  let 
LINE  TYPE  1 
LOIR  0 
LORG  5 

CSI2E  15/4.54 
Flag=0  !  RESE 

Nray_fami ly=Nray 

IF  <Stuff*="Y")  OR 


Drau_ixes!       CALL    Plot 
Step    f ami  1 y 
IF~Step    f 
First    surf:LINE    TYPE~3 
MOVE    0,0 
X=Ymax/'Tal  p 
DRAW    X.Ymax 
DRAW    100, Ym 
IF    (Stuff 
EXIT    GRAPHI 
BEEP 
Y«»"N" 
INPUT    "DO    Y 
IF    <YS»"N 
GRAPHICS 
LINE    TYPE    3 
FOR    I*Step_ 
MOVE    0,Y1 
DRAU    XKI 
fl»XHI)-Y 
DRAU    A,0 
NEXT    I 
Delta_b:GRAPHICS 

IF    <Stuff* 
31=YKStep_fam 
B2»YKStep_fam 
Del tab=B2-Bl 
Start i ng_poi nts: FOR    1= 
J*I 

Fl ag_over*0 
Fl ag_neg=0 
Sf i  rst»Sl ast=Sm 
IF    <Stuff*="Y 
S2<n«Slast 
Del ta_xsurf»S2< 
Del ta~y surf =S2< 
Xsurf21»Xl<I>+D 
Ysurf21»YKI)+D 
IF    <StuffS="Y 


T    CONDITION 

<Stuff*="y">    THEN    N 
i 

=INT<Nrav_fami ly/10 

amily<=0    THEN    Step_ 

!     DRAW    THE    F 

ha 


ray_fami 1 y=Nrav_stuf f 

DRAWS  AND  LABELS  THE  AXES 
> 

farm  ly=l 
IRST  SURFACE 


**"Y")  OR  (Stuff*»"y">  THEN  Delta_b 
CS 


OU  WANT  TO  DRAU  IN 
>  OR  <Y$="n">  THEN 


THE  INCIDENT  RAYS  ?  Y/N",Y* 
Del ta  b 


family  TO  Nray_family  STEP  Step_family 

<I) 

),YKI) 

KI)/Trhol 


V")  OR  <Stuff*="y"> 
i  1 y>-Xl <St ep_f ami  1 y 
i ly+1 )-Xl (Step_f ami 


THEN  Step_fami ly=l 
)*Trhol 
1 y+1 ;*Trhol 


Step  family  TO-  Nray  family  STEP  Step  family 

!  PRINTING  PURPOSES 
!  RESET  CONDITION 
!  RESET  CONDITION 


ax(I) 

»)  OR  <Stuff*="y"> 

I)*COS<Rhol> 

I)*SIN<Rhol) 

el ta_xsurf 

el ta_ysurf 

")    OR    (Stufffs-y") 


THEN    Sf irst=S1 ast =Smax < F ami  1 y) 
!     FOR    STUFF    ONLY 


THEN    Xsurf21=XKFami  ly)+Delta    xsu 


IF    <Stuff*»"Y")    OR    <Stuff$*"y">    THEN    Ysurf 21 =Y 1 ( Fami 1 y )+De 1 t a_ysu 


!     THE    STARTING    POINT 
IS    BENEATH    THE    X-AXIS 


IF    Ysurf21<0    THEN    GOSUB    Neg_ysurf 
X2<I>=Xsurf21 
Y2<I)«Ysurf21 

Xsurfmax<I)»Xsurf21     ! THESE    ARE    THE    MAXIMUM    <X,Y)    COORDINATES    OF    THE 
Ysurfmax<I>»Ysurf21     !     RAY    IN    THE    LENS 

IF    Flag    neg=l    THEN    GOSUB    New_s 
Trho21»Y2~I)/<X2<I>-F> 
Rho2<I)»ATN(Trho21) 
Alpha2i»Alpha2<I> 

IF    <Stuffi="Y")    OR    <Stuffl="y")    THEN    Al pha2 i =A 1 pha2(Fam l 1 y ) 

IF    Alpha2i>=90    THEN    Next_i 
Talpha2i=TAN(Alpha2i ) 
Bsurf21»Ysurf21-Xsurf21*Talpha2i 
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12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12660 
12690 
12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12810 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13098 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 


THE 
DRAW 


STORTING  POINT 

THE  PARTICULAR  SURFACE 


DON'T 
TO  SAVE 


USE  AN 
TIME 


IF 


Xsurf 1  ast  =>Xsurf  21 
Ysurf 1 ast = Ysurf 21 
Bsurf 1 ast=Bsurf21 

IF  Li  n«_count  >Li  ne_rnax  THEN  CALL  Header 
PRINT  USING  13470; I , J , Rho2( J) , Xsurf 1 ast , Ysurf 1 ast , SI ast , A) ph a2i 
Lin*  count=Li ne_count+l 
LINE~TYPE  1 
CSI2E  2.5 
LORG  2 

HOVE  Xsurf21, Ysurf21 
SurfaceslFOR  J=I+1  TO  Nray_fami1y  ! 

Bnext=Bl+< J-l )*De 1  tab 
Numxsurf =Bnext  -Bsurf  1  ast 
Xsurfnext=Numxsurt'V<Talpha2i-Trhol> 
Ysurfnext=Xsurfnext*Trhol+Bnext 
X2<J>*Xsurfnext      !  ONLY  USED  FOR  STUFF 
Y2<J>*Ysurfnext      !  STATEMENT  IN  ORDER 
Xl=0 

CALL  Xlpos<Xl,Ysurfnext> 
IF  Xsurfnext<=Xl  THEN  GOSUB  Yl 
DRAM  Xsurf next , Ysurf next 
Xs2*<XKJ>-Xsurfnext  )~2 
Ys2=<YKJ>-Ysurfnext  >-2 
Sn*xt*SQR<Xs2+Ys2> 
S2< J>»Snext 

IF  ABS(Beta< J) >>ABS<Rhol>  THEN  CALL  Hi gh_regi on<Snext , A  1 pha2i , J ) 
IF  ABS<Beta<  J)  X=ABS<Rhol  '■>    THEN  CALL  Low  reg  i  onCSnext  ,  A  1  pha2i  ,  J  > 
Rho2<J)=Rho2 
Alpha2<J>=A1pha2i 

IF  Li ne_count >Li ne_roax  THEN  CALL  Header 
PRINT  USING  13470; I, J , Rho2< J > , X2< J> , Y2< J> , S2< J ) , A1 pha2< J> 
Li  ne_count =Li  ne_count +  1 

IF  Alpha2i>=90  THEN  Next  i 
Talpha2i»TAN<A1pha2<J>> 
Bsurfnext=Ysurf next -Xsurf next  *Tal  pha2i 
Bsurf 1 ast =Bsurf next 


COMPUTE  NEXT  VALUE  OF  S  BY 
EXTENDING  THE  RAY  FROM  THE 
PRESENT  POINT  TO  THE  NE:<T 
ALPHA2  VS  S  LINE 


Next_j 
Next  i 


Xsurf 1 ast^Xsurf next 
Ysurf 1 ast= Ysurf next 

IF  <Stuff*="Y")  OR  <Stuff*="y' 
X2max<I)=Xsurf last  !  USED  TO 
Y2max< I )*Ysurf 1 ast 

IF  Flag  over=l  THEN 

NEXT  J 

IF    Line    counOLine    max 
PRINT 
Line    count=Li ne_count *1 

IF~<StuffS="Y">    OR    <3tuff*="y"> 

IF    Flag_over=0    THEN    GOSUB    Label 

IF    (StuffSs-Y")    OR    <Stuff*="y"> 
NEXT    I 

!     RESET 


)    THEN    12970 

DETERMINE    APERTURE    FOR    STUFF 


Next_i 

THEN  CALL  Header 


THEN 

surf 

"THEN 


13030 
13080 


LORG  5 

CSI2E  15/4.54 

IF  <Stuff*»"Y 
F1ag*3 

CALL  Graph 

Fami 1 y*« 


)  OR  <Stuff*-Myu>  THEN  GOSUB  Yb 


'N" 


Yl; 


CALL  Header_end 
SUBEXIT 

Fl ag_over=l 

Xsurfnext=Bsurflast-'(Ta!pha-Talpha2i) 

Ysurfnext=Xsurfnext*Talpha 

MOVE  Xsurf next, Ysurf next  !  THE  ENDPOINT 

CSI2E  3 

LORG  1 

IF  <Stuff»»"N")  OR  (Stuff*»"n">  THEN  LABEL  USING 
IF  <Stuff*»"Y")  OR  <Stuff*»"y">  THEN  LABEL  USING 
MOVE  Xsurf next, Ysurf next     !  PLACE  THE  PEN  BACK 


13410; I 

134 10;  Farm  1  >j 

ON  TOP  OF  THE  POINT 
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13230 
13240 
13250 
13260 
13270 
13230 
13290 
13300 
Trhol 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
13380 

9 

13390 

13400 

13410 

13420 

13430 

13440 

13450 

13460 

13470 

13480 

13490 

13500 

13510 

13520 

13530 

13540 

13550 

13560 

13570 

13580 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13680 

13690 

13700 

13710 

13720 

13730 

13740 

13750 

13760 

13770 

13780 

13790 

13800 

13810 

13820 

13830 

.V* 

13840 

13850 

13860 


RETURN 
N«u_s:  Sy2=Y2<I>-YKI) 
Sx2  =  X2<I)-XKI) 
S2< I)=SQR<Sx2+Sy2> 
RETURN 
Neg_ysurf:  Flag  neg=l  !  IF,  FOR  SOME  NUMERICAL  REASON  YB1  <  0 

A=X  l7l>-YKI>  /Trhol 

IF  <Stuff*="Y">  OR  <Stuff*="y">  THEN  fl=X  1  v  Fami  1  y  )  -Y  1  ■;  F  ami  1  y  >  / 

Xsurf21=A  !  START  AT  THE  X-INTERCEPT 

Ysurf21=0 
RETURN 
Label_surf:    MOVE  Xsurf 1 ast , Ysurf 1 ast   !  THE  ENDPOINT 
CSI2E  3 
LORG  1 

IF  <Stuff*="N">  OR  (Stuff*="n">  THEN  LABEL  USING  12.410:1 

IF  <Stuff*="Y" >  OR  (Stuff*="y">  THEN  LABEL  USING  l3410;F*mil 

MOVE  Xsurf last, Ysurf last  !  PLACE  THE  PEN  ON  TOP  OF  THE  POINT 
RETURN 
IMAGE  K 
Yd:  Bsm*Y2maxCFami 1 y )-X2max<Fami ly)*Trhol   !  COMPUTE  THE  UPPER  LIMIT 

Xl*Bsm^<Talpha-Trhol)   !  OF  THE  APERTURE.  THIS  IS  THE  FINAL  VALUE  OF 
Yb*Yl=Xl*Talpha         !  THE  APERTURE 
Aperture=Yb-Ya 
RETURN 
IMAGE  2X,DDD,5X,DDD,5(5X,DDD.DDD> 
!  THE  IMAGE  STATEMENT  IS  FOR:  I , J , Rho2< J> , X2< J > , Y2< J> , S2<J> , Al ph a2C J > 
SUBEND 

SUB  Ray_trace 
OPTION  BASE  0 
; 

COM  fllpha,Talpha,Rho,Trho, Rho_i  nitial ,Trhoi ,Rhol,Trhol,Rho2,Trho2 

COM  F,Z3,Z4,Norm, Thetai , Tdel ta 

COM  Date*, PI ot*, Fami 1 y*, Chart*, Main*, Main 1*,F1 ag*, Y_hard* 

! 

COM  Stuf f *, Redr au*, Di  gi  t  i  ze*, Ray_trace* 

COM  INTEGER    I , J, Y0_1 oop , Nray , Nray_chart , Nray_f ami  1 y , Nr ay_5t uf f 

COM  INTEGER    Nray_trace, Nr ay_densi  ty, Add_ray, Nc , Ns,  Nbet  a, Fl  ag 

j 

COM  INTEGER  Li  ne_c ount , Li  ne_max, N_i  ncrement ,Hit_total ,Pse1ect,Hpib 

COM  INTEGER  Fami 1 y , Surf_no  ~ 

COM  REAL  Theta_cri  t i cal , Tol , Nl, N2.N3, Del ta_ray, Y0, Ya, Yb, Aperture 

COM  Y_bul 1 et , Smax_f ami ly,Percent_image 

COM  XK*),YK*),Xc<*),X2<*),  Y2< *> , X2max<*> , Y2max< * > 

COM  Y3<*>,  Y4  <*>,  Bet  a(  *>,S2<»>,  Xsurf  max<*),  Ysurf  max<*> 

! 

COM  Qa<*>,Smax<*>,  A1 pha2<*> , Rho2<*> , Hi t <*> 

THIS  ROUTINE  CONTROLS  THE  RAY  DIAGRAM  FOR  AN  ARBITRARY  NUMBER 
OF  RAYS  WHICH  IS  ENTERED  BY  THE  OPERATOR  IN  RESPONSE  TO  A  PROMPT 

THE  ROUTINE  CONTROLS  THE  FITTING  OF  A  POLYNOMIAL  TO  fl  SET  OF  POINTS 
WHEN  AN  ARBITRARY  RAY  DOES  NOT  COINCIDE  WITH  A  RAY  COMPUTED  IN  STUFF 

DEG 

Ray  trace**"Y" 

Select =16 

EXIT  GRAPHICS 

Y*="N" 

INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  ALL  OF  THE  GENERATED  COEFICIEHTS  ?  Y/N" 

IF  <Y*»"Y")  OR  <Y*»"y">  THEN  Select-0 
Graphi  cs»l 
X»l 
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13870  N  =  4 

13880  CALL  Dri werCN, Select , X, Graphi cs) 

13890  Ray_trace*="N" 

13900  SUBEND 

13910  SUB  Dri ver<N, Select , Input , Graphics) 

13920  ! 

13930  OPTION  BASE  1 

13940  ! 

13950  COM  Al pha, Tal pha, Rho, Trho,  Rho_i  ni t  i al , Trhoi , Rhol , Trhol , Rho2, Trho2 

13960  COM  F, 23, 24, Norm, Thetai , Tdel ta 

13970  COM  Date*, Plot*, Fami  1  y* ,  Chart  * , Mai n* , Mai nl *, Fl ag* , Y_hard* 

13980  ! 

13990  COM  Stuff *, Redraw*, Di gi t l ze*, Ray_t race* 

14000  COM  INTEGER  I  ,  J  ,  r'0_l  oop  ,  Nray ,  Hr  ay_chart  ,  Nray_f  ami  ly  ,  Nr  av_st  uf  f 

14010  COM  INTEGER  Nray  trace, Nray  density, Add  rav , Nc  ,  Ns ,  Nbet a, F 1 ag 

14020  ! 

14030  COM  INTEGER  Li ne_c ount , L i ne_max , N_i ncrement , Hi t_t ot al , Pse 1 ec t , Hp 1 b 

14040  COM  INTEGER  Fam i 1 y , Surf_no 

14050  ! 

14060  DIM  Xx<N),Yy<N>,fl*C2J,B*C23,Co«ff»<0:l0) 

14070  PRINTER  IS  Select 

14080  Q-4 

14090  P:  Degree=3 

14100  CALL  Polynomial<Xx<*),Yy<*),N,Degree,Coeffs<*), Regss, Resss, Tot  a  lss.Rs 

gms, Resms , F,Dfreg,Df res, Dftot, Abort) 

14110  PRINT  "Coefficients:" 

14120  FOR  1=0  TO  Degree 

14130  PRINT  USING  1 4 1 40; I , Coef f s <  I  ) 

14140  IMAGE  "A<"DDDD")=",K 

14150  NEXT  I 

14160  PRINT  LIN(l) 

14170  GOSUB  Aoutable 

14180  IF  Graphics  AND  <Select=16)  THEN  WAIT  20O0 

14190  IF  Graphics  THEN  CALL  PI  ot_cub i c C Q,  A, B,  Coef fs < * >  ,  Xx< *), Yy (*), N, Degree 

•  .Select ) 

14200  SUBEXIT 

14210  Print:  PRINTER  IS  Select 

14220  PRINT  LIH<2),SPfl<12); "DATA" 

14230  FOR  1=1  TO  N 

14240  PRINT  USING  142505  I , Xx< I ) , Yy <  I  ) 

14250  IMAGE  "Point  #"DDDD" : " , 5X,  "X2  =  "DDD. DDDD, 5X, " Y2="DDD. DDDD 

14260  NEXT  I 

14270  PRINT  LINC2) 

14280  PRINTER  IS  16 

14290  RETURN 

14300  Aovtable:  PRINT  USING  14310 

14310  IMAGE  "Source     "5X"  Df'llX"  SS"13X"  MS"12X"F",/ 

14320  PRINT  USING  1 4330; Df reg, Regss, Regms , F 

14330  IMAGE  "Regress i on"5X, MDD, 4X, M7D. 3D, 4X, M7D. 3D, 5X, M4D. 3D 

14340  PRINT  USING  14350; Df res, Resss, Resms 

14350  IMAGE  "Residual   "5X, MDD, 4X, M7D. 3D, 4X, M7D. 3D 

14360  PRINT  USING  14370;  Dft ot , Tot al ss 

14370  IMAGE  "Total       "5X,  MDD,  4X,  M7D.  3D,  / ,/./,/- ,  / 

14380  RETURN 

14390  SUBEND 

14400  SUB  Pol ynomi al<X<*),Y<*),N, Degree, Coef fs<«),  Regss,  Resss, Tot  a lss,Pegms,Resm 

s,F, Df reg, Df res, Dftot ,  Abort > 

14410  OPTION  BASE  0 

14420  DIM  Matri  •<<  Degree  ,  Degree  '■> ,  Inw<Degree,  Degree  ),  B(Degree) 

14430  REDIM  Coeffs<Degree> 

14440  IF  Degree>N-2  THEN  SUBEXIT  !  Check  for  higher  degree  than  possible 

14450  Dfreg=Degree 

14460  Dfres=N-l-Degree 

14470  Df tot=Df reg+Df res 

14480  FOR  K=0  TO  Degree          »   S#t  up  system  of  equations 

14490  -    FOR  J=K  TO  Degree 

14500  Matrix<K, J)=0 
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14510 
14529 
14530 
14540 
14550 
14560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 
14820 
14830 
14840 
14850 
14860 
14870 
14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 
14960 
14970 
14980 
14990 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
15080 
15090 
15100 
15110 
15120 
15130 
15140 
15158 
15160 


FOR  1*1  TO  N 

Matrix<K,  J>=Matn  x<K,  J ) +FNGCK > *FNG<  J> 
NEXT  I 
ttatrix<  J,K)=Matrix<K,  J) 
NEXT  J 
B<K>=0 

FOR  1=1  TO  N 

B < K > =B < K> +Y < I > *FNG < K > 
NEXT  I 


Solve  the  system  of  equations 


Total  Sum  of  Squires 
Regression  Sum  of  Squares 
Residual  Sum  of  Squares 


NEXT  K 

MAT  Inw=INV<Matri x) 
MAT  Coeffs*Inv*B 
FOR  1*1  TO  N 
Xt=XH-X<I) 
X2=X2>X(I)*X<I> 
Y1=Y1+Y< I) 
Y2=Y2+Y<I)*Y<I) 
Z=Z+X<I)*Y< I) 
NEXT  I 
Y1=Y1'N 
X1=X1'N 

Totalss=Y2-N*Yl*Yl 
GOSUB  Regss 
Resss=Totalss-Regss 
Regms=Regss''Dfreg 
Resms=Resss/Dfres 
F=Regms/Resms 
SUBEXIT 
Regss:   Regss=0 

FOR  1=1  TO  N 
J-0 

FOR  L  =  0  TO  Degree 

J=J*X<I>~L*Coeffs(L:> 
NEXT  L 

Regss=Regss  +  <  J-Yl  >">2 
NEXT  I 
RETURN 
SUBEXIT 
DEF  FNG<f1)=X<I>-*M 
SUBEND 

SUB  Plot_cubic<0, A,  B, Coeffs<*) , X<*) , Y<*> , N, Degree, Sel ect ) 
IF  Whichdevice=l  THEN  GRAPHICS 
DATA  -2, -1,1,2 
READ  Urn,  Dm,  Md,  flu 
DATA  .39794, .69897, .87506 
READ  Log2,Log5,Log7 
Xmin»FNMin<X<*>,N> 
Xmax*FNMax<X<*),N) 
Lx*LGT<Xmax-Xmin> 
Ymin*FNMin<Y(*),N> 
Ymax=FNMax<Y<*)  ,N> 
Ly*LGT<Ymax-Ymin> 
Xfudge=.20*<Xmax-Xmi  n) 
Yfudge=.20*<Ymax-Ymin> 
Setup:    IF  Plot*="P"  THEN  P9872 
Crt:  PLOTTER  IS  "GRAPHICS" 

GOTO  15090 
P9872:  PLOTTER  IS  Pse  1  ec t , Hp i b, "9872A" 
GCLEAR 
GRAPHICS 

LOCATE  23, 123,0, 100 
FRAME 

LINE  TYPE  1 

SCALE    Xmin-Xfudge,Xmax,Ynun-Yfudge,Ymax 
Testxt ic=FRACT<Lx)*<Lx<0> 
Testyt ic=FRACT<Ly)*<Ly<0> 
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15170 
<<Tes 
15180 
<<Tes 
15190 
Yfudg 
15200 
15210 
15220 
15230 
15240 
15250 
15260 
15270 
15280 
15290 
15300 
15310 
15320 
15330 
15340 
15350 
15360 
15370 
15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 
15460 
15470 
15480 
15490 
15500 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15630 
15640 
15650 
15660 
15670 
15680 
15690 
15700 
15710 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
15790 
15800 


Xtic  =  10/s<INTCLx>-l)*<l  +  1.5*<  (Testxt  ic>Log2)  AND  <Testxtic<Log5>>+4* 
txtic>*Log5>  AND  <Test xt i c < =Log7> ) +  6. 5* < Test xt i c >Log7 ) > 

Ytic"18*<INT<Ly)-l>*<i+I.3*<<T«stytic >Log2;  AND  <Testyt ic<Log5) >+4* 
tytic>=Log5>  AND  (Testyt l c< =Log7) >+©. 5*<Testyt i c >Log7> > 

CALL  Laxes_cub>  c<Xt  i  c,  Yt  ic  ,  Xmi  n,  Ymi  n,  1,  1 ,  2,  Xmin-Xf  udge, Xmax,  Ymi  n- 
e , Yma* ) 

LORG  5 

FOR  1=1  TO  N 

MOVE  X<I>, Y<I> 
LABEL  USING  15240;"*" 
IMAGE  A 
NEXT  I 
LORG  1 
PENUP 

EXIT  GRAPHICS 
SUBEXIT 
Polynomial:  SETUU    !  CHECK  THE  EARLIER  PROGRAM  FOR  THESE  PARAMETER  VALUES 
CLIP  0, 123,0, 1O0 
LINE  TYPE  1 
LINE  TYPE  6 

FOR  I=Xmin  TO  Xmax+Xfudge  STEP  <Xmax+Xf udge-Xmi n>/30 
J=0 

FOR  L=0  TO  Degree 

J=J+I'L*Coeffs<L> 
NEXT  L 
PLOT  I,J,Md  !  OR  DRAW  ???? 

NEXT  I 
PENUP 

EXIT  GRAPHICS 
SUBEXIT 
DEF  FNMax<X<*),N) 
X=X(i) 
FOR  1=2  TO  N 

X=MAX<X,X<I>) 
NEXT  I 
RETURN  X 
DEF  FNMin<X<*),N> 
X=X<1> 
FOR  1=2  TO  N 

X=MIN<X,X<I>) 
NEXT  I 
RETURN  X 
SUB  Header 

OPTION  BASE  0 

COM  Alpha,  Talpha,Rho,Trho,Rho_initial ,Trhoi ,Rhol,Trhol,Rho2,Trho2 

COM  F,23,Z4,Norm, Thetai , Tdel ta 

COM  Date*, PI ot*, Fami 1  y*, Chart*, Mai  n*,Mai nl*, Fl ag*, Y_hard* 

! 

COM  Stuff*, Redr aw*, Digitize*, Ray_trace* 

COM  INTEGER    I, J, Y0_1 oop, Nray , Nray_chart , Nray_f ami  1 y , Nr ay_st uf f 

COM  INTEGER    Nray_trace, Nray_densi ty , Add_ray , Nc , Ns  ,  Nbet a,  F  1  ag 
t  '"  ~ 

COM  INTEGER    L i ne_count , L i ne_max, N    i  ncre'ment ,  Hi  t_tota1  ,  Pse  1  ec  t ,  Hpi  b 

COM  INTEGER    Fami 1 y , Surf_no 

COM  REAL    Theta_cn  t  ical ,Tol , Nl , N2, N3, Del ta_r ay, YO, Ya, Yb, Aperture 

l  "" 

COM  Y_bul 1 et , Smax_f ami  1 y, Percent_i  mage 

COM  XK*),YXC#),Xc<*),X2<*),  Y2< *> , X2max< *> ,  Y2max<*> 

COM  Y3<*>,  Y4<*>,Beta<*> , S2<*> , Xsurf max<*) , Ysurf max< *> 

! 

COM  Qa<*>,Smax<*>,Alpha2<*>,Rho2<*>,Hit<»> 

INTEGER  Z.Ztabl , Zt ab2, Zt  ab3, Char_mi n, Char_max 
! 

-  !    THIS  ROUTINE  DRAWS  THE  HEADER  FOR  PRINTED  OUTPUT  FOR  THE  FOLOWING 
!  ROUTINES: 
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15310 
15828 
15838 
15848 
15858 
15868 
15870 
15888 
15898 
15980 
15918 
15928 
15938 
15948 
15958 
15960 
15970 
15988 
15990 


t)  CHART 

2>  FAMILY 

3)  STUFF 

4)  RAY  TRACE 


THIS  ROUTINE  DRAWS  AND  PRINTS  THE  HEADERS  FOR  TABULAR  DATA. 


1  THE  ITAB'S  CAN  BE  USED  TO  POSITION  TABLE  HEADINGS 
!  FOR  THE  PRINTED  OUTPUT 


DEC 

Ztabl=35 
Ztab2=27 
Ztab3=13 

IF  (MainS*"Y">  OR  (Main*="y")  THEN  Main 
IF  (Mainl$*"Y";  OR  (Mainl*="y">  THEN  Mainl 
IF  (Ray_trace*="Y" )  OR  (Ray_trace*="y " )  THEN  Ray_trace 
IF  (Chart *="Y">  OR  ( Chart  *="y" )  THEN  Chart 
IF  (Fami ly**"Y">  OR  (Fami 1 y$="y " )  THEN  Family 
IF  (Stuff$="Y">  OR  (StuffS="y">  THEN  Family 
16000  Main:  PRINT  PAGE;LIN(2> 
16818  GOSUB  Char  long 

16020        PRINT  LIN<  l)7"TAB<Ztab2);  "INITIAL  PARAMETER  VALUES  ";  L  INC  1  > 
16038  GOSUB  Char_long 

16848        PRINT  LIN<2> 
16858      SUBEXIT 

16868  Mainl:    IF  Li ne_count >Li ne  max  THEN  GOSUB  Header_*nd_l ong 
16070         PRINT  PAGE;LIN<2) 
16080         Li ne_count=0 
16090  GOSUB  Char  long 

16100         PRINT  LIN<n~TAB(2tab3>,  "RAY 

RHO  2",LIN<1> 
16110  DISP  TAB(Ztab3>, "RAY 

RHO  2" 
16128  GOSUB  Char_1ong 

16138         PRINT  LIN<2> 
16140       SUBEXIT 
16158  Chart:    IF  Li ne_count >Li ne_max  THEN  GOSUB  Header_end_1 ong 


QA 
QA 


5max 
Smax 


Al pha2 
Alpha2 


16168 

PRINT  PAGEJLIN<2) 

16170 

Li  ne_count =0 

16180 

GOSUB  Char  long 

16198 

PRINT  LIN<1), "RAY 

BETA 

THETAKRAY) 

NORMAL 

RHO  2 

S 

ALPHA  2";LIN(1> 

16200 

DISP  "RAY 

BETA 

THETAKRAY) 

NORMAL 

RHO  2 

S 

ALPHA  2" 

16210 

GOSUB  Char  long 

16228 

PRINT  LIN<2> 

16238 

SUBEXIT 

16248  Fami 

y:    IF  Line  count>Line 

_max 

THEN 

GOSUB  Header_end 

_1  ong 

16250 

PRINT  PAGE;LIN<2) 

16268 

L j  ne_count=0 

16270 

GOSUB  Char  long 

16280 

PRINT  LIN<1>7"    Beg 

i  n 

Next 

Xsurf 

Ysurf 

S 

A1pha2 

RHO  2" 

16290 

PRINT  ■    Ray 

Ray 

<next ) 

' (next) 

(next) 

(next ) 

(next>";LIN(l> 

16300 

DISP  "    Beg 

i  n 

Next 

Xsurf 

Ysurf 

S 

Alpha2 

RHO  2" 

16310 

GOSUB  Char  long 

16320 

PRINT  LIN<2)~ 

16330 

SUBEXIT 

16340  Ray  trace:    IF  Li n*_count >L i ne  max  THEN  GOSUB  Header_end_l ong 

16350  PRINT  PAGEJLIN(2> 

16360  Line  count=0 

16370  GOSUB  Char  long 

16380  PRINT  LIN(1>7"RAY   X0     Y0        XI       Yl        X2 

Xe  Yc     X4         Y4   -;LIN(1) 
16390  DISP  "RAY   X0     Y0        XI       Yl        X2 


Y2 
Y2 
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Xc    Yc       X4  Y4   " 

16400  GOSUB  Char_long 

16410  PRINT  LIN<2>~ 

16420  SUBEXIT 

16430  Char  long:  FOR  Z=0  TO  79 

16440  IF  2=79  THEN  PRINT  CHR*<228> 

16450  IF  2=79  THEN  16470 

16460  PRINT  CHR*<228>; 

16470  NEXT  2 

16480  RETURN 

16490  Char_short:  Char_min=12    !  THIS  ROUTINE  CAN  BE  USED  FOR  SMALL  TABLES 
16500  Char_max=64 

16510  FOR  2=Char_min  TO  Char 

16520  IF  2=Char_r.nn  THEN* 

16530  IF  2=Char_max  THEN 

16540  IF  2=Char  max  THEN 

16550  PRINT  CHR*<228>; 

16560  NEXT  2 

16570  RETURN 

16580  Header  end_1ong:  PRINT  LIN<2) 
16590  GOSUB  Char_long 

RETURN 

Header_end_shor:  PRINT  LIN<2) 

GOSUB  Char  short 
RETURN 
SUBEND 

SUB  Header  end 


max 

PRINT  TAB<Char_min>; 

PRINT  CHR*<223> 

16560 


16600 

16610 

16620 

16630 

16640 

16650 

16660 

16670 

16680 

16690 

16700 

16710 

16720 

16730 

16740 

16750 

16760 

16770 

16780 

16790 

16800 

16810 

16820 

16830 

16840 

<2>  ABOVE 

16850 

16860 

16870 

16880 

16890 

16900 

16910 

16920 

16930 

16940 

16950 

16960 

16970 

16980 

16990 

17000 

17010 

17020 

17030 

17040 


COM  A1pha,Talpha,Rho,Trho,Rho_initial  ,Trhoi  ,Rhol,Trhol,Rho2,Trho2 

COM  F, 23,24, Norm, Thetai , Tdel ta 

COM  Date*, PI  ot*,  Fami  1  y*,  Chart  *,  Mai  n*,  Mai  nl*,  F1  ag*,  Y_hard* 

INTEGER  2, Char_mi n, Char  max 

!  THIS  ROUTINE  DRAWS  THE  FINAL  BOTTOM  LINE  OF  A  TABLE.  SUB  HEADER 

!  DRAWS  THE  BOTTOM  LINES  ON  PAGES  OF  TABLES  WHILE  OUTPUT  IS  STILL 

!  CALCULATED 

! 

PRINT  LIN<2> 
FOR  2=0  TO  79 

IF  2=79  THEN  PRINT  CHR*<228>  ' 
IF  2=79  THEN  16810 
PRINT  CHR*<228>; 
NEXT  2 
SUBEXIT 


ABOVE 
BEING 


Short 


Char 
Char' 


ji»in=20 
max=60 


THIS  ROUTINE  CAN  BE  USED  TO  FINISH  A  SMALL  TABLE 
TO  USE,  INSERT  AN  IF  STATEMENT  AFTER  THE  PRINT  LIN 


FOR  2=Char_min  TO  Char_max 
IF  2=Char_min  THEN  PRINT 
IF  2=Char_max  THEN  PRINT 
IF  2»Char  max  THEN  16900 
PRINT  CHR?<228>; 
NEXT  2 
SUBEXIT 
SUB  Stuff 

OPTION  BASE  0 


TAB<Char_mi  n) ; 
CHR*<228> 


COM 
COM 
COM 
| 

COM 
COM 
COM 
! 

COM 
COM 


Alpha,Talpha,Rho,Trho,Rho_initial ,Trhoi , Rhol , Tr hoi , Rho2, Trho2 

F, 23, 24, Norm, Thetai , Tdel ta 

Date*, PI  ot*, Fami 1y*, Chart*, Mai  n*, Main  1$, Fl ag*, Y_hard* 

Stuff*, Redraw*, Di  gi t  i  ze*, Ray_trace* 

INTEGER  I,J,Y0_loop,Nray, Nray_chart , Nray_f ami ly, Nray_stuf f 

INTEGER  Nray_trace, Nray_densi  ty, Add_ray, Nc , Ns, Nbet a, Fl ag 


INTEGER 
INTEGER 


Li  n«_ 
Fami  ' 


count , Li  ne 
y , Surf  no 


max,N  i  ncrement  ,  Hi  t  t.  ot  al  ,  Pse  1  ec  t  ,  Hp  i  b 
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17830 
17060 
17070 
17088 
17090 
17100 
17110 
17120 
17130 
17140 
17130 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17230 
17260 
17270 
17280 
17290 
17300 
17310 
17320 
17330 
FAULT 
17340 
17350 
17360 
17370 
17380 
17390 
17400 
17410 
17420 
17430 
17440 
17430 
17460 
17470 
17480 
17490 
17300 
17310 
17320 
17330 
17340 
17330 
17360 
17370 
17380 
17390 
17600 
17610 
17620 
17630 
17640 
17650 
17660 
17670 
17680 
17690 
17700 


COM  REAL  Theta_cr i 1 1  cal ,  Tol , Nl , N2, N3, Del ta_ray , Y0, Ya,  Yb , Aperture 
! 

COM  Y_bul 1 et , Smax_f ami  1  y, Percent  image 

COM  X7<*>, Yl< *» , Xc< *) , X2<*> , Y2<»7, X2m*x < * > , Y2max <  * ) 

COM  Y3<*),Y4<:*),Beta<*>,S2<*:>,Xsurfmax<*>,Ysurtmax<*) 

i 

COM  Qa<*),Smax<*>, Alpha2<*> , Rho2( *> , Hi t < *> 
i 

!    THIS  ROUTINE  COMPUTES  250  POINTS  OF  THE  SURFACE  CHOSEN  IN  FAMILY 
!  THESE  POINTS  ARE  THEN  USED  IN  OTHER  ROUTINES  TO  TRACE  AN  ARBITRARY 
!  NUMBER  OF  RAYS  THROUGH  THE  DESIGN  SURFACE 
! 
( 

DEG 
IF 


Y2max<Fami ly)=Yl (Fami 1y)  THEN  Yb=Y 1 < F ami  1 y ) 
IF  Y2max<Fami  1  y>=YKFami  ly)  THEN  Initialize 


UPPER  LI 
ESTIMATE 
<AL  DESIG 
1TE  DELY 
■aw!  INDI 


MIT 

FOR 
N 

BELOW 
GATES 


REDRAW  TO  ANOTHER  SCALE 


AVOIDS  MIXED  MODE  ARITHMETIC 


Yb:  Bsm»Y2«n4x<Fami  ly>-X2max<Family>*Trhol   !  COMPUTE  THE 
Xl=Bsm'<Talpha-Trhol>   !  OF  THE  APERTURE.  THIS  IS  AN 
Yb=Yl»Xl*Talpha   !  THE  APERTURE  MAY  CHANGE  IN  THE  FIN 
Aperture=Yb-Ya   !  THE  ESTIMATE  IS  REQUIRED  TO  CALCULA 
Initialize:    IF  (Redraw!*" Y" >  OR  <Redraw*="y " )  THEN  Redr 
Ya=YKFami  ly> 
Aperture=Yb-Ya 

Y0_mi n=Ya*<Tal pha-Trhoi >/Talpha 
Y0_max»Yb*<Tal pha-Trhoi  ^Talpha 
Nray_$tuff=250 

INPUT  "HOW  MANY  RAYS  DO  YOU  WANT  TO  DRAW  THE  SURFACE  WITH  <  DE 
-  250  MAX)  ?",Nray_stuff 

IF  Ya=0  THEN  Add_ray=0 
IF  Ya<>0  THEN  Add_ray=l 
Xnray=Nray_stuf f 
Del  y=<<Y0_max-Y0_mi  nl/Xnr&y 
Y0_mi  n3Y0_mi  n-Del y 

IF  Ya*0  THEN  Y0_min*Y8_min+Dely 
Nray  stuff=>Nray  stuff+Add  ray 
Flag«0 
Ns>0 

X2(Ns>=3 
Y2<N*>»0 
Beta<Ns)=0 
Start:  Stuff*="Y" 

FOR  I»l  TO  Nray_stuff    !  COMPUTE  THE  COORDINATES 
Flag»0  !  OF  THE  INCIDENT  RAY  AND 

X«0 

RhoaRho  initial 
Trho»TAN<Rho) 
Y=>Y0  min*Dely*I 
Ns-Ns+1 
YKNs>»Y 

CALL  Xlpos<X,Y) 
Xl<Ns)»X 
Next  i 


TA  ?  Y/N",Y* 


OF  THE  I 
THE  FIRS 


NTERCEPT 
T  SURFACE 


NEXT  I 

BEEP 

Y*»"N" 

INPUT  "DO  YOU 

WANT  A  HARD 

COPY 

OF  THE  COMPUTED  DA 

IF  <Y*«"Y"> 

OR  <YS»My"> 

THEN 

GOSUB  Yhard 

CALL  Chart 

BEEP 

Y*-"NM 

INPUT  "DO  YOU 

WANT  A  HARD 

COPY 

OF  THE  CHART  ?  Y/N 

IF  <Y*»"Y"> 

OR  <Y*="y"> 

THEN 

GOSUB  Dump_it 

Y$»"N" 

INPUT  "DO  YOU 

WANT  A  HARD 

COPY 

OF  THE  COMPUTED  DA 

IF  <Y$=»"Y") 

OR  <YS«"y"> 

THEN 

GOSUB  Yhard 

CALL  Fami ly 

,YS 


TA  ?  Y/N",Y$ 


156 


17710 
17728 
17739 
17740 
17750 
17760 
17770 
17780 
17790 
17888 
17818 
17828 
17838 
17848 
17858 
17868 
17878 
17888 
17898 
17988 
17910 
17920 
17930 
17940 
17950 
17960 
17970 
17980 
17990 
18000 
18810 
18828 
18830 
18040 
18858 
18060 
18878 
18080 
18090 
18188 
18110 
18120 
18130 
18140 
18150 
18160 
18170 
18180 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 
18270 
18280 
18290 
18300 
18310 
18328 
18330 
18340 
18350 
ULLET 
18368 


Stuff*="N" 
SUBEXIT 
Redraw:  Stuff*="Y" 
CALL  Plot 
LINE  TYPE  3 

MOVE  0,0 
DRAW  Y  bul  let/Talpha, Y_bullet 
DRAW  100, Y_bul let 

MOVE  X2<1), Y2<  1) 
LINE  TYPE  1 
FOR  I»2  TO  Nray_stuff 

DRAM  X2<I>,Y2(I> 
NEXT  I 

MOVE  X2<I-1),Y2< I-l) 
LORG  2 

LABEL  USING  17370;Family 
IMAGE  K 
Redraw*»"N" 
Flag»3 
CALL  Graph 
SUBEXIT 
Dump_it:  PRINTER  IS  O 

PRINT  CHR*<27)&"&100T" 
DUMP  GRAPHICS 
PRINT  CHR*<27>&"$.136T" 
PRINTER  IS  16 
RETURN 
Yhard:  Flag*»"l" 

PRINTER  IS  0 
RETURN 
SUBEXIT 
SUB  Binary_search<X, Y> 
OPTION  BASE  0 
i 

COM  Alpha,Talpha,Rho,Trho,Rho_initial , Trhoi ,Rhol,Trhol,Rho2,Trho2 

COM  F, 23, 24, Norm, Thetai , Tdel ta 

COM  Date*,Plot*,F am i  1  y*, Chart*, Mai n*, Mai nl*, Fl ag*, Y_hard* 

; 

COM    Stuff*, Redraw*, Di  gi  t  i  re*, Ray_trace* 

COM    INTEGER    I ,  J,  Y0_1  oop,  Nray  ,  Nray_j:hart ,  Nray_f ami  1  y  ,  Nray_stuf  f 

COM    INTEGER    Nray_trace, Nray_densi ty , Add_ray , Nc , Ns,  Nbet a, Fl ag 

! 

COM  INTEGER  L i ne_c ount , L i ne_max, N  i ncrement , Hi t_t ot al , Pse 1 ec t , Hp i b 

COM  INTEGER  Fami 1 y , Surf_no 

COM  REAL  Th*ta_cri  t  icalTTol , Nl , N2, N3, De 1 1 a_ray , Y0, Ya, Yb, Aperture 

COM  Y  bul 1 et , Smax_f ami  1 y, Percent_i mage 

COM  xT<*>,Yl<*>,Xc<*>,X2<*>,Y2<*7,X2max<*>,Y2max<*) 

COM  Y3<*>, Y4<*),Beta<*),S2<»),Xsurfmax<*),Ysurfmax<*) 

! 

COM  Qa<*),Smax<*) , Al pha2<*> , Rho2<*> , Hi t <*> 


THIS  ROUTINE  FINDS  THE  INTERCEPT  OF  THE  RAY  WITH  THE  FOLLOWING: 

1)  FIRST  SURFACE 

2)  SECOND  SURFACE 

3)  FIRST  IMAGE  PLANE 
4>  SECOND  IMAGE  PLANE 


OEG 

DEF  FNA<X, Y)»X-Y^Trho2 

DEF  FNAi <X, Y)*X-Y/Talpha 

DEF  FNXn<A)=A-Y  bullet^Trhol 


!  FINDS  THE  INTERCEPT  OF  THE  RAY  AND  Y*-Y  B 


Trho2=TAN<Rho2> 


!  RH02  MUST  BE  DECLARED  ELSEWHERE 
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18370 
18380 
18390 
18400 
18410 
18420 
18430 
18440 
184S0 
18460 
18470 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 
13580 
18590 
18600 
18610 
18620 
18630 
18640 
18650 
18660 
18670 
18680 
13690 
18700 
18710 
18720 
18730 
18740 
18750 
18760 
18770 
18780 
18790 
18800 
18810 
18820 
18830 
18840 
18850 
18860 
18870 
18880 
18890 
18900 
18910 
18920 
18930 
18940 
18950 
18960 
18970 
18980 
18990 
19000 
19010 
19020 


IF  Surf_no=4  THEN  Four 
Xc<Y0_loop)=FNA<X,  Y>         !  FIND  THE  X-INTERCEPT  OF  RH02 
Three:  Dy  =  < Z3-X; *Trho2 
Y»Y+Dy 
X  =  Z3 
SUBEXIT 
Four:  Dy»<Z4-X)*Trho2 
Y»Y+Dy 
X  =  Z4 
SUBEXIT 
SUB  Graph 

OPTION  BASE  0 
! 

COM  fll  pha,  Tal  ph. a,  Rho,  Trho,  Rho_i  nit  i  al  ,  Trhoi  ,  Rhol ,  Trhol ,  Rho2,  Trho2 

COM  F, Z3.Z4, Norm, That ai , Tdel ta 

COM  Date*, Plot*, F am i ly*,Chart*,Main*,Mainl*,F1 ag*, Y_hard* 

! 

COM    Stuf f *, Redrau*, Di  gi  t  i  ze*, Ray_t race* 

COM    INTEGER    I , J, Y0_1 oop, Nray , Nr ay_chart , Nray_f ami  1 u, Nray_stuf f 

COM    INTEGER    Nray_trace, Nray_densi t y , Add_ray , Nc , Ns, Nbeta, Fl ag 

! 

COM  INTEGER  Line  count, Line  max , N_i ncrement , H i t_t ot al , Pse 1 ec t , Hp i b 

COM  INTEGER  Fam i 7y , Surf _no 

COM  REAL  Theta_cri  t  ica^To1  ,  Nl ,  N2,  N3,  Del  ta_ray,  Y0,Ya,Yb, Aperture 

! 

COM  Y_bul 1 et , Smax_f ami ly,Percent_image 

COM  xT<*>,  Yl<*),Xc<*>,X2<*>,  Y2<*7,X2max<*),  Y2max<*> 

COM  Y3<*>, Y4<*>,Beta<*>,S2<*>,Xsurfmax<*>, Ysurfmax<*> 

j 

COM  Qa<»>,Smax<*>, Alpha2<*>,Rho2<*),Hi t (*) 
! 

!     THIS  ROUTINE  DRAWS  THE  GLM  FOR  STUFF  AND  RAY_TRACE  SUBROUTINES 
!  AND  DIGITIZES  THE  IMAGE  PLANE  POSITION  <Z3) 
I 
i 
DEG 

IF  Flag*3  THEN  Wait  1 

IF  (Digit ize*="Y">  OR  (Di gi t i ze*»"y  "  )  THEN  Digit 
Draw_axes:     CALL  Plot 
First  surf:  FIXED  2 

LINE  TYPE  3 

MOVE  0,0 
X=Y_bul let/Talpha 
DRAM  X, Y  bul let 
DRAW  1007Y_bul let 

MOVE  0,0 
DRAM  X, -Y  bul let 
DRAW  100, -Y  bul let 
X2pos:   MOVE  X2(1>,Y2(1~ 

FOR  I»2  TO  Nray_stuff 

DRAW  X2(I>,Y2(I> 
NEXT  I 
X2neg:    MOVE  X2( 1 > , -Y2( 1 > 

FOR  1*2  TO  Nray  stuff 

DRAW  X2(I>,-Y2(I> 
NEXT  I 

EXIT  GRAPHICS 
Y*-»NM 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  WITHOUT  RAYS  ?  Y/N",Y* 

IF  (Y*="Y">  OR  (Y**"y">  THEN  GOSUB  Dump  it 
GRAPHICS 

IF  <Redraw*="Y" )  OR  <Redraw*="y" )  THEN  Second_image 
First  image:  LINE  TYPE  5 

MOVE  Z3,Y  bul let 
DRAW  Z3,-Y  bul let 
•Sec ond_t  mage:  LINE  TYPE~6 
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19039 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 
19150 
19160 
19170 
19130 
19190 
19200 
19210 
19220 
19230 
19240 
19250 
19260 
19270 
19280 
19290 
19300 
19310 
19320 
19330 
19340 
19350 
19360 
19370 
19380 
19390 
19400 
19410 
19420 
19430 
19440 
19450 
19460 
19478 
19480 
19490 
19500 
19510 
19520 
19530 
19540 
19550 
19560 
19570 
19580 
19590 
19600 
19610 
19620 
19630 
19640 
19650 
19660 
19670 
19680 
19690 


MOVE  24,Y_bul let 
DRAW  Z4,-Y_bul let 
REM  DRAW  THE  RAYS 

IF  <Ray_trace*="Y" )  OR  < Ray_t ric et-"y " >  THEN  Nr av_gr »ph=Nr ay_t r ■ 
IF  <Stuff*«"Y">  OR  CStuff*"""y")  THEN  Nray_graph=Nr ay  stuff 
First  :  LINE  TYPE  1 

CLIP  0,  100,-Y_bul let , Y_bul let 
FOR  1=1  TO  Nray  graph 
MOVE  0,YKI> 
DRAW  Xl< I), Yl< I) 
NEXT  I 
Second  :  FOR  1=1  TO  Nray_graph 
MOVE  Kl(I),  YKI) 
DRAM  X2<I>, Y2< I) 
NEXT  I 
First  image  p:  FOR  1=1  TO  Nray  graph 
MOVE  X2(I),Y2(I) 
DRAW  Z3,Y3<I> 
NEXT  I 
Decision:  WRIT  2000 

EXIT  GRAPHICS 

BEEP 

Y*«"N" 

INPUT  "DO  YOU  WANT  TO  PLOT  TO  THE  SECOND  IMAGE  PLANE 


Y/N" , Y$ 


GRAPHICS 

IF  <Y*="N"> 
Second_i raage_p:  FOR 


THIS  ROUTINE  CHANGES  THE  ANALOG 
OF  THE  IMAGE  PLANE  ON  THE  GRAPHI 
TO  "DIGITAL  DATA  FOR  PROCESSING 


OR  <Y*="n">  THEN  Waitl 
1=1  TO  Nray_graph 
MOVE  Z3,Y3(I> 
DRAW.  Z4,Y4<I) 
NEXT  I 
Waitl:  BEEP   !  THIS  ROUTINE  PRESENTS  THE  PLOT  TO  THE  OPERATOR 

WAIT  250  !  IF  A  NOTE  TO  THE  OPERATOR  IS  DESIRED,  ENTER  SET 
BEEP      !  MOVE  2, 2, CSIZE  2. 5, LABEL  "PRESS  CONT",CSIZE  IS' 
PAUSE     !  SETUU  AFTER  THE  SECOND  BEEP 
EXIT  GRAPHICS 

IF  (Flag=0>  OR  <Flag=3>  THEN  EXIT  GRAPHICS 
SUBEXIT 
Digit:  GRAPHICS 

POINTER  F,0 
DIGITIZE  Z3,Y 
LINE  TYPE  5 

MOVE  Z3, Y_bul let 
DRAW  Z3,-Y_bul let 
SETGU 
LDIR  0 
LINE  TYPE  1 
LORG  5 
CSIZE  2.5 
Centerx=72.5        !  CHANGE  IN  LAXES  AS  WELL 

MOVE  1.5*Centerx,2 
LABEL  USING  19540;Z3 
IMAGE  "Image  Plane  : 
SETUU 

CSIZE  15/4.54 
WAIT  2500 
EXIT  GRAPHICS 
SUBEXIT 
Dump_it:  PRINTER  IS  0 

PRINT  CHR*<27)8."«.100T" 
DUMP  GRAPHICS 
PRINT  CHR*<27>&"«<136T" 
PRINTER  IS  16 
RETURN 
SUBEND 
SUB  Xlneg<X,Y> 
•  OPTION  BASE  0 


GU.LORG 
4.  54, 


POSITION 
CS    DEVICE 


"  ,  DD.  DD,  "    i  rich' 
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19700 
19710 
19720 
19730 
19740 
19730 
19760 
19770 
19780 
19790 
19800 
19810 
19820 
19830 
19840 
19850 
19860 
19870 
19880 
19890 
19900 
19910 
19920 
19930 
19940 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 


COM  A1 pha, Tal pha, Rho, Trho, Rho_i  ni  t i al , Trhoi , Rhol , Trhol , Rho2, F, Z3, Z4 
! 

DEG 

Al phan*-l*Al pha 

Ta.lphan  =  TAN<A1phan) 

DEF  FNYl<Y>=Y*Talphan/<Talphan-Trho>   !  FINDS  THE  Y-VflLUE  OF  THE  INTERCEPT 

!  OF  THE  RAY  AND  THE  FIRST  SURFACE 
DEF  FNXUY)=Y/Talphan   !  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RflY 

!  AND  THE  FIRST  SURFACE 
Y=FNYKY) 
Uoops:X  =  FNXKY> 
SUBEND 
SUB  Density 

OPTION  BASE  0 
I 

COH  Alpha,Talpha,Rho,Trho,Rho_initial , Trhoi , Rhol, Trhol, Rho2,Trho2 

COM  F, 23, 24, Norm, Thetai , Tdel ta 

COM  Date*, PI ot$, Fami 1 y*, Chart*, Mai n*, Mai  nl*, F1 ag*, Y_hard* 

j 

COM  Stuff*, Redraw*, Digitize*, Ray_trace* 

COM  INTEGER    I , J, Y0_1 oop, Nray , Nray_chart , Nray_f ami  1 y , Nray_stuf f 

COM  INTEGER    Nray_t rac e , Nr ay_dens i t y , Add_r ay , He , Ns, Nbet a, F 1 ag 

! 

COM  INTEGER  Li ne_count , L  i  ne_max, N_i  ncrement,Hit_total ,Pselect,Hpib 

COM  INTEGER  Fam i 1 y , Surf_no 

COM  REAL  Thet a_cr i  t  i  cal , Tol , Nl , N2, N3, Del ta_ray, Y0, Ya, Yb, Aperture 

i 

COM  Y_bul 1 et , Smax_f ami ly,Percent_image 

COM  XI <*>,  YK*>,Xc<*>,X2<*>,  Y2< *7, X2max<*> ,  Y2max<*) 

COM  Y3(*>,Y4<*>,Beta<*>,S2<*>,Xsurfmax<*>, Ysurf max< O 

! 

COM  Qa<*>,Smax<*),A1pha2<*) , Rho2<*> , Hi t <*> 
I 

INTEGER  Inc, K,L,M, Lints 
! 

DEG 

THIS  ROUTINE  COMPUTES  THE  RAY  DENSITY  IN  ONE  DIMENSION. 
ASSUMPTIONS: 

1)  THE  POINT  OF  MAXIMUM  RAY  DENSITY  HAS  BEEN  FOUND  VIA  A 
DIGITIZE  STATEMENT. 

2)  THE  VALUES  OF  Y3  HAVE  NOT  BEEN  CHANGED  TO  REFLECT  THE 
NEW  VALUE  OF  23 


!  RECOMPUTE  THE  VALUE  OF  Y3 


PRINTER    IS    16 
Nray_dens  i  ty=Nray_stuf f 
Re    draw:    FOR    1=1    TO    Nray    density 
A»Xc<I> 
X-X2<I> 
Y»Y2<I> 
Rho2*Rho2<D 
Trho2*TAN<Rho2> 
Dt1tay-<Z3-X)*Trho2 
Y3»Y+Dtlt»y 
Y3<I>"Y3 

Dt1tay»<Z4-Z3>*Trho2 
Y4<I>=Y3<I)+D*1 tay 
NEXT    I 

MAT    Hit=ZER<2001> 
lnc»0 

Ylast*-Y_bu1 let 
Del ta*Y_bul let/N_increment 
Yntxt=YTast*Del ta'2 
H1t<Inc>»0 
FOR    I»l    TO    Nray_density 

IF    <Y3<I>>»Ylast)    AND    <Y3<IXYntxt>    THEN    Hi  t  <  Inc  )  -Hi  t  <  Inc  >  +  l 
NEXT    I 
Hit    middle:  !     FIND    THE    No.     OF    HITS    IN    THE    INTERVAL 


Same: 


Next_i : 
Hit  rero 


!  ZERO  THE  ARRAY 
!  FIND  THE  No.  OF  HITS  IN  THE  INTERVAL 
!  C-Y_BULLET,  -Y  BULLET+DELTA/2] 
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20370 

20330 

20390 

20400 

20410 

20420 

20430 

20440 

C)*l 

20450 

20460 

20470 

20480 

20490 

20500 

20510 

20520 

20530 

20540 

20550 

20560 

20570 

20580 

20590 

20600 

20610 

20620 

20630 

20640 

20650 

20660 

20670 

20680 

20690 

20700 

20710 

20720 

20730 

20740 

20750 

20760 

20770 

20780 

20790 

20800 

20810 

20820 

20830 

20840 

20850 

20860 

20870 

20880 

20890 

20900 

20910 

20920 

20930 

20940 

20950 

20960 

20970 

20980 

20990 

21000 

21010 

21020 


!  C-Y_bul let+DELTA'2,  Y_bul 1 et -DELTA/2) 
FOR  L=l  TO  2*N_i  ncrement-1 
Inc=Inc*l 
Hit<lnc)=0 
Yl ast=Ynext 
Ynext=Ylast+Delta 

FOR  1  =  1  TO  Nray_density 

IF  <Y3<  I )  >  =  Y1  ast  >  AND  <Y3<  I  XYnext )  THEN  Hi t < Inc )=Hi t C  In 

NEXT  I 
NEXT  L 
Hit_last:  Inc=2*N  increment      !  FIND  THE  No.  OF  HITS  IN  THE  LAST  INTERVAL 
Hit(Inc7=0  !   CY_bu11et-DELTA/2,  Y  bullet] 

Y1ast=Y_bul let-Delta'2 
Ynext=Y~bul 1 et 
FOR  I=l~TO  Nray_densi ty 

IF  <Y3< I >  >  =  Y 1 ast )  AND  < Y3< I ><=Ynext )  THEN  Hi t < Inc )=Hi t < Inc )  +  1 
NEXT  I 
Normalize:  Hit_total=0 

FOR  1=0  TO  2*N_i ncrement 

Hit  total =Hi t_total +Hi t ( I ) 
NEXT  I 


NORMALIZE  THE  No.  OF  HITS  ON  THE 
IMAGE  PLANE  (23)  TO  THE  TOTAL 
No.  OF  HITS 


!  %    OF  RAYS  THAT  ARRIVE  AT  THE 

!  IMAGE  PLANE 

!  PLOT  AND  LABEL  THE  AXES 

!  DRAU  THE  HISTOGRAM 


IF  Hit_total=0  THEN  None 
FOR  1*0  TO  2*N_i ncrement 

Hit(I)=Hi t<I~/Hi t  total 
NEXT  I 
None:       Pct=Hit_total /Nray_densi  ty 

Per c en t_i  mage=Pct *100 
Graph:  CALL  Plot 

IF  Hit_total=0  THEN  Label_ 
First  bar:  XI ast =-Y_bul 1 et 

Xnext=Xlast+Delta/-2   !  INTERVAL   C-Y_bullet,  -Y_bull  et  +DELTA/2) 
lnc=0 

IF  Hit<lnc)=0  THEN  Middle  bars 
CLIP  Xlast, Xnext, 0,Hit<Inc)~ 
FRAME 
GOSUB  Delt 
Middle_bars:  FOR  1=1  TO  2*N  increment-1     !  INTERVAL 

Inc=Inc+l    '  ►  C-Y_bu1 let+DELTA/2,  Y_bu 1 1 et-DELTA/2) 

XI ast=Xnext 

Xnext =X1 ast+Del ta 

IF  Hit<lnc)=0  THEN  Next_i_ra 
CLIP  Xlast , Xnext ,0, Hi t ( Inc ) 
FRAME 

GOSUB  Delt 
Next  i_r»:     NEXT  I 

Last~bar:  Inc=2*N  increment         !  INTERVAL  CY_bul 1 et-DELTA/2,  Y_bu11et3 
Xlast-YJaullet-Delta-^ 
Xnext=Y~bu1 1 et 

IF  Hit"<lnc)=0  THEN  Label 
CLIP  Xlast, Xnext, 0,Hit<IncT 
FRAME 
GOSUB  Delt 
Label_:  Digi t i ze*="N" 
Fl ag*3 

CALL  Graph 
SUBEXIT 
Delt:  Lines=10 

Delt=<Xnext-Xlast)/Lines 
X=Xlast-Delt 
FOR  J=l  TO  Lines 
X=X+De1t 
MOVE  X,0 
DRAU  X,Hit<Inc) 
NEXT  J 
RETURN 
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21038 
21040 
21050 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 
21160 
21170 
21130 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 


SUBEND 
SUB  Min<Xm<*>,X, INTEGER  M) 
OPTION  BASE  0 
j 

DIM  Xm<M> 

THIS  ROUTINE  FINDS  THE  MINIMUM  ELEMENT  IN  A  ONE  DIMENSIONAL  ARRAY 

X=Xm<0> 

FOR  1=1  TO  M 

X=Min<X,Xm<I)> 
NEXT  I 
SUBEND 
SUB  Max<Xm<*),X, INTEGER  M) 
OPTION  BASE  0 
i 

DIM  Xm(M) 

THIS  ROUTINE  FINDS  THE  MAXIMUM  ELEMENT  IN  A  ONE  DIMENSIONAL  ARRAY 

X=Xm<0) 

FOR  1=1  TO  M 

X=MAX<X,Xm<I)> 
NEXT  I 
SUBEND 


162 


APPENDIX  B 
TRACE  PROGRAM  DESCRIPTION  AND  PROGRAM  LISTING 

TRACE  was  the  first  program  written  for  this  thesis. 
TRACE  was  written  for  the  purpose  of  automating  the  task 
of  drawing  the  ray  diagram  produced  when  tracing  rays 
through  a  conical  lens  with  various  second  surfaces.   The 
program  consists  of  a  set  of  subroutines  called  from  a 
control  program  which  are  designed  to  perform  a  specific 
task(s).   A  detailed  description  of  each  subroutine  will 
not  be  given  because  TRACE  has  extensive  documentation 
included  within  the  program.   However,  an  abbreviated 
discussion  of  the  geometric  relationships  at  the  first 
and  second  surfaces  and  the  bisection  routine  in  subroutine 
BINARY  SEARCH  follows. 

TRACE  occupies  approximately  145  Kbytes  of  memory  which 
is  approximately  77%  of  available  memory  (11) .   A  listing 
of  TRACE  is  at  the  end  of  this  appendix. 

TRACE  was  designed  to  calculate  the  trajectory  of  up  to 
250  rays  incident  upon  the  first  surface  in  the  upper  half- 
plane  as  illustrated  in  figure  B-l.   All  of  the  parameters 
shown  in  figure  B-l  are  provided  by  the  operator  except  Z4 , 
the  location  of  the  permanent  Image  plane,  which  is  set  for 
Z4  =  50  inches.   All  of  the  parameter  values  provided  by  the 
operator  have  default  values  declared  either  in  subroutine 
DIALOGUE,  line  number  13810  or  the  MAIN  routine,  line  number 
10. 
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TRACE  calculates  the  complete  trajectory  of  each  ray 
before  proceeding  to  the  next  ray.   Each  surface  is  assigned 
a  number  with  the  vertical  axis,  y,  defined  as  the  zeroth 
surface.   All  incident  rays  originate  on  the  y-axis  and  are 
assumed  to  be  parallel  with  the  source  at  infinity.   The 
first  surface  shown  in  figure  B-2  encountered  is  the  exterior 
of  the  conical  spike  which,  in  two  dimensions,  is  a  plane 
perpendicular  to  the  meriodional  plane,  the  paper,  with  a 
cone  half -angle   a.   The  incident  angle  makes  an  angle  of 
incidence   9   with  the  first  surface  normal   n   at  point  T 
according  to 

8I  =  J   (a  +  |Pl|) 

Noting  that   a  =  a2,  PR  =  |NORM|-  9r,  NORM  =  a2  -  j  (B-l) 

and  applying  Snell's  Law   sin9_  =  (n, /n2) sin9_         (B-2) 
yields 

pR  =  a2  +  9R-T 
the  ray  angle  in  the  lens  referred  to  as   pi   in  chapter  III 

and  Appendix  F.   As  the  incident  ray  angle   px   increases  the 

angle  of  incidence   9y   decreases  to  zero  when  the  incident 

causing   9_  to  transition  through  the  normal  as  shown  in 

figure  B-3,  subroutine  SNELL  in  TRACE  detects  this  transition 

as  a  change  in  sign  in   9_.   Snellfs  Law  is  defined  with  all 

arguments  positive.   Therefore  the  magnitude  of   9T   is  used 

to  determine   9R  and  thus  p  R  according  to 

sin9R  =  (n2/n, )  sin9,.   yielding 

9R  "  °»  +  9R  -  I  (B"3) 

which  is  the  same  result  for   9   >  0. 
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The  application  of  Snell's  Law  at  the  second  surface  of 
the  lens  is  very  similar  to  the  first  surface.   The  geometry 
for   9.J.   >  0   is  shown  in  figure  B-4  and  for   9T  <  0   in 
figure  B-5.   Some  of  the  rays  inside  the  lens  may  intercept 
the  GLM  axis  at  x  <  zl   and  therefore  may  intercept  the 
branch  of  the  second  surface  in  the  lower  half -plane.   The 
geometry  for  this  case  is  shown  in  figure  B-6 .   A  significant 
difference  between  rays  intercepting  the  positive  and  negative 
branches  of  the  second  surface  is  the  definition  of  the  normal 
direction  n.   In  figures  B-4  and  B-5  the  direction  of   n   is 
into  the  lens  where- in  figure  B-6,   n   is  defined  to  be  out  of 
the  lens.   Practically,  this  contradiction  in  definition  has 
no  effect  on  TRACE  because  the  angle  of  the  normal  used  in 
applying  Snell ' s  Law  has  always  been  the  acute  angle  as  la- 
beled in  all  of  the  figures.   The  direction  of   n   in  figure 
B-6  was  changed  to  reflect  the  change  in  sign  of  NORM. 

The  search  for  and  calculation  of  the  intercept  of  the 
ray  refracted  at  the  first  surface  and  the  second  surface  is 
accomplished  in  subroutine  BINARY  SEARCH.   The  primary  method 
used  is  the  bisection  method  illustrated  in  figure  B-7.   The 
bisection  method  can  only  be  applied  where  the  ray  in  the 
lens  is  known  to  intercept  the  second  surface  of  the  lens. 
Examples  of  rays  which  do  not  intercept  the  second  surface 
are  shown  in  figures  C-2 ,  C-5  and  C-10.   The  method  used  for 
the  rays  which  do  not  intercept  the  second  surface  is  dis- 
cussed later. 
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The  bisection  method  converges  to  the  intercept  value 

quickly,  especially  if  the  ray  is  nearly  normal  to  the  second 

surface.   The  sequence  of  events  is  depicted  in  figure  B-7  by 

the  circled  numbers   1  ,   2  ,  etc.   Assuming   Pi   is  known, 

the  intercept  of  the  GLM  axis,  A,  of  the  ray  in  the  lens  is 

found.   The  first  step  in  the  bisection  sequence,   1   is  to 

find  the  midpoint  of  QA.   The  midpoint  of  QA,  (x  . ,,  y  . ,)  is 
c  c  mid   -'mid 

calculated  under  label  Recur se  _p,  line  7440  of  TRACE.   The 
midpoint  is  then  compared  to  the  value  of  the  second  surface 
at  y=y  . ,.   The  midpoint  in  figure  B-7  is  behind  the  second 
surface.   Step  2  finds  one  midpoint  of  the  line  segment  from 
Q  to  the  midpoint  of  QA.   A  comparison  is  again  made  with 
the  second  surface.   Now,  the  present  location  is  ahead  of 
the  second  surface.   Step  3  is  executed  and  the  location  is 
again  compared  with  the  second  surface.   The  process  conti- 
nues until  the  difference  between  the  present  location  on 

the  ray  (x   ,,  y   ,)  and  the  true  value  of  the  intercept 
J    mid  ■'mid 

(x0,  y  -j),   |x  .  j-x.,  I  is  less  than  a  specified  tolerance, 

2'    •'mid  '   '  mid   2 '  r 

tol  =  10 ~  .   Once  the  intercept  of  the  ray  and  the  second 
surface  has  been  found  then  go  to  label  Done,  line  8140,  to 
define  the  (x,  y)  coordinates  of  the  intercept.   The  x- 
coordinate  is  defined  as  the  average  of  the  present  location 

on  the  ray,  x  .  ,,  and  x2,  the  value  of  the  second  surface  at 

■*  '   mid        ' 

y=y  j  • 

The  ray  may  pass  ahead,  shown  by  A  <  Zl,  of  the  second 
surface.   The  test  for  A  <  Zl   is  conducted  in  line  6  860. 
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If  the  test  is  true  a  jump  to  line  7720  is  performed.   A  test 
is  conducted  in  line  78  70  to  determine  if  the  ray  intercepts 
the  negative  branch  of  the  second  surface.   If  the  test  is 
true  then  a  jump  to  line  80  80  is  made  to  prepare  to  enter  the 
bisection  method  for  the  negative  branch,  which  is  identical 
to  the  method  for  the  positive  branch  described  above.   The 
test  performed  in  line  7870  will  not  detect  a  ray  that  is 
just  tangent  to  the  second  surface.   The  slow  march  method, 
lines  7840  to  8000,  is  employed  to  search  and  find  the  inter- 
cept  (A,  0)   and  marches  down  the  ray  until  the  second 
surface  intercept  is  found  within  the  tolerance,  or  the  wall 
of  the  GLM,  y  =  -Y_  bullet  is  reached.   If   y  =  -Y_  bullet 
then  the  march  is  terminated  and  a  jump  to  line  8250  via  8150 
is  made  to  exit  the  subroutine. 

A  special  case  exists  when  8  <  0.  The  ray  in  the  lens 
could  intercept  the  positive  branch.  A  test  is  conducted  in 
line  7010  to  determine  if  the  ray  intercepts  the  positive 
branch.  If  the  test  is  true  a  jump  is  made  to  line  7330  for 
entry  into  the  bisection  method.  If  the  test  fails  then  the 
marching  method  is  used.  The  application  of  the  marching 
method  for  this  case  is  made  from  line  7100  to  7320. 

Another  special  case  exists  when  the  polynomial  used  to 
describe  the  second  surface  causes  the  second  surface  to 
intercept  the  first  surface  at   |y|  <  Y_  bullet.   The  test 
for  this  case  is  conducted  in  line  7370  for  the  positive 
branch  and  line  7770  for  the  negative  branch.   If  the  test 
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is  true,  then  a  jump  is  made  to  line  82  80  and  the  subroutine 
is  exited. 

The  "success11  of  a  conical  lens  is  whether  light  rays  can 
be  focused  to  a  point.   Success  is  determined  two  ways.   The 
first  is  the  ray  diagram;  compare  figures  14,  22,  C-2,  C-10 
and  C-16  for  the  ability  of  each-  lens  to  focus  light  rays. 
The  second  method  is  by  a  histogram  of  the  ray  distribution 
on  the  image  plane.   The  desired  histogram  is  a  delta  func- 
tion at  the  origin  as  shown  in  figures  15  and  23.   Undesir- 
able histograms  are  shown  in  figures  C-3,  C-7,  C-13,  C-14  and 

C-17.   The  histogram  is  calculated  by  dividing  the  image 
plane  in  the  upper  half-plane  into  an  even  number  of  intervals 
equal  to  N_increment.   The  division  of  the  image  plane  is  also 
performed  in  the  lower  half  plane  as  shown  in  figure  B-8.   The 
intervals  are  arranged  such  that  the  GLM  axis  is  straddled  by 
the  center  interval,  thus  adding  a  half -interval  to  each 
extremity  of  the  image  plane.   Hence,  the  total  number  of 
intervals  is  then  2*N_increment  +1.   The  generation  of  the 
histogram  is  executed  in  subroutine  DENSITY,  line  17920. 
The  algorithm  checks  each  interval  for  an  intercept  of  a  ray 
with  the  image  plane  in  lines  184  40  to  18  82  0,  DENSITY  then 
normalizes  the  distribution  to  the  number  of  hits  on  the 
image  plane,  not  the  total  number  of  rays  in  lines   18  830  to 
189  30.   The  percentage  of  the  rays  striking  the  image  plane 
is  calculated  in  lines  18920  and  18930  and  displayed  to  the 
operator  by  subroutine  LAXES  in  lines  12870  and  12880.   The 
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percentage  label  serves  to  remind  the  operator  that  the 
histogram  represents  the  distribution  of  the  rays  actually 
striking  the  image  plane  within  the  boundaries  of  the  GLM. 

The  subroutines  in  Table  B-l  were  copied  or  derived 
from  the  HP-9  845B  utilities  library  for  use  in  TRACE. 
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TABLE  B-I 

SUBROUTINES  DERIVED  FROM  THE  HP-9  845B  UTILITIES  LIBRARY 

Name  Line  No. 

Main  18 

Plot  10170 

Laxes  114  30 

Dialogue  13810 
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TRACE  PROGRAM  LISTING 


10  NORMAL 

20  PRINTER  IS  16 

30  PRINT  PAGE 

40  FIXED  2 

50  PRINT  "  I**************************************************************-- 

£0  PRINT  "* 

70  PRINT  "*  TRACE 


80  PR 

90  PR 

100  0 

110  W 

120  M 

130 

140 

150 

160 

170 

130 

190 

200 

210 

220 

230 

240 

2S0 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

T 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

66<d 


INT  "* 

INT  "*****************************************************#*********■ 

ISP  "THIS  IS  TRACE" 

AIT  150O 

ain:OPTION  BASE  0 


*" 


COM  INTEGER  I, J, Cur 
COM  Al pha, Tal pha, Rh 
COM  Nl,N2,H3,Percen 


INTEGER  Y0_loop 
INTEGER  Linecou 
INTEGER  Pselect 


COM 
COM 
COM 

! 

COM  REAL  Nm in, Umax, 
COM  Ray  trace*, Digi 
COM  XC1250), Y< 1250) 


ve,Hp,Nn,N,Ns,Nr,REAL  Aneg< 17>, AposC 1 7) , A< 17 ) , Zl , 22 , 24 
o, Trho, Rho_i  nitial .Trhoi ,  Phi  ,To1 ,Norm,Alpha2 
t  i mage , Ya, Yb, Aper t  urs , Y_bu 1 1 et 

,  Nray ,  Add_r  ay,  Surf_no,  Fl  ag,  Fl  ag2,  N_i  ncrement ,  Hi  t_t  ot  al 

nt ,  Li nemax 

,Hpib 

R0_max 

tize*,Grin*,G*,Grinc*,P1ot*,Date* 
,Xc<250),N<250)  ,R<250) 


COM  Rho<750),Phi < 250) , C C 250) , Y3C250) , H i t < 2001 ) 


INTEGER  Zz,Char_max 

DISP  "" 

OVERLAP 

CALL  Dialogue 

DEG 


!  SEE  THE  9845  OPERATING  AND  PROGRAMMING  MANUAL 


Comment  s : 


FLAGS  ARE  USED  THROUGHOUT  THE  PROGRAM  TO  INDICATE  VARIO 
CONDITIONS  WHICH  INFLUENCE  THE  BEHAVIOR  AND  TREATMENT  OF  T 
LIGHT  RAY  AS  IT  PASSES  THROUGH  THE  LENS  SYSTEM.  THE  EXPLAH 
OF  FLAGS  USED  IN  THE  GENERATION  OF  THE  RAY  DIAGRAMS 
AND  THE  DECLARATION  LOCATION  IS  GIVEN  BELOW: 


US 
HE 
AT  I  ON 


FLAG  : 

1)  0  =>  DECLARED  IN  MAIN  AND  BINARY  SEARCH 

RESET  CONDITION 

2)  1  =>  DECLARED  IN  BINARY  SEARCH 

RAY  INTERCEPTS  THE  NEGATIVE  BRANCH 

3)  5  »>  DECLARED  IN  SNELL 

Theta  I  <  0  DEGREES 

4)  10  »>  DECLARED  IN  SNELL 

TOTAL  INTERNAL  REFLECTION 

5)  15  *>  DECLARE  IN  SNELL 

THE  RAY  LEAVES  THE  SECOND  SURFACE  WITH 

ABS<RHO>  >    90  DEGREES  <THE  RAY  WILL  NOT  INTERCEP 

THE  IMAGE  PLANE) 

6)  20  =>>  DECLARED  IN  BINARY  SEARCH 

THE  RAY  MISSES  BOTH  THE  POSITIVE  AND  NEGATIVE 
BRANCHES  FOR  Thetal  >  OR  <  0  DEGREES 

7)  30  *>    DECLARED  IN  BINARY  SEARCH 

THE  SECOND  SURFACE  BENDS  AROUND  AND  CROSSES  THE 
FIRST  SURFACE 


Flaq2  : 

1)  0  *>  DECLARED  IN  MAIN  AND  BINARY  SEARCH 

RESET  CONDITION 

2)  1  =>  DECLARED  IN  BINARY  SEARCH 

THE  RAY  INTERCEPTS  THE  NEGATIVE  BRANCH 

NOTE:  THESE  ARE  NOT  ALL  OF  THE  FLAGS,  JUST  THE  ONES  AFFECTING 
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678 

680 

698  Gymnast  i 

700 

710 

rd* 

720 

730 

740 

730 

760 

770 

780 

790 

800 

N",Y  hard* 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

930 

960 

970  Image_p: 

980  Image_n: 

990 

1000 

1010 

1020 

1030 

1040 

1050  Initial 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210  Y0  loop 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300   • 

1310 


RAYS. 

Y  hard*="N" 

FTag2*="l" 

INPUT  "DO  TOU  WANT  A  HARD  COPY  OF  THE  COMPUTED  DATA''  Y--N",Y_ha 

IF  <Y_hard*="N")  OR  < Y_hard$="n" )  THEN  Flag2*="0" 

GOSUB  Yhard 

GOSUB  Printer 
BEEP 
PAUSE 

IF  <G*="Y">  OR  <G*="y")  THEN  GOSUB  Header_gnn 

IF  <G*="Y">  OR  <G*="y">  THEN  Ini  t  i  al  i  ze_run 
Y_hard*="N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  COEFICIENTS  PRINTED  ?  Y/ 

IF  <Y_hard*="N">  OR  < Y_hard*="n " )  THEN  1000 
GOSUB  Yhard 
GOSUB  Header_coef 
FOR  1=0  TO  Np 

IF  Li  necount  >Li  nemax  THEN  GOSUB  Header_coef 
PRINT  USING  Image_p; I, AposCI) 
Li necount =Li necount +1 
NEXT  I 

IF  Linecount >Li nemax  THEN  GOSUB  Header  coef 
PRINT 

Linecount=Linecount+t 
FOR  1=0  TO  Nn 

IF  Linecount >Li nemax  THEN  GOSUB  Header_coef 
PRINT  USING  Irnage_n;  I,  Aneg<I) 
Li necount =Linecount+l 
.  NEXT  I 
IMAGE  25X,  "AposC'DD")  =  ",K 
IMAGE  25X, "Aneg<"DD">  =  ",K 

GOSUB  Header  coet"_end 
PRINT  LIN<2>, "PRESS  CONT" 
PAUSE 

IF  Flag2*="l"  THEN  Y_hard*="Y" 
GOSUB  Yhard 
GOSUB  Header 
i ze  run: Surf_no=0 
Zl=Apos<0> 

IF  <G*="Y">  OR  <G*="y">  THEN  23=15 
Y0_mi  n=Ya*<Tal pha-Trhoi >/Tal  pha 
Y0  max=Yb*<Talpha-Trhoi )/Tal pha 

Xnray=Nray       !  TO  KEEP  FROM  U3IN  MIXED  MODE  ARITHMETIC 
Dely=<Y0_max-Y0_mi  n)/Xr\r&y 
Y0  »in=Y0_min-Del y 

IF  Ya=0  THEN  Y0_min=Y0_min+Dely 
Nr»y=Nray+Add_ray 
Ns—  1         ~!  COUNTERS 
Nr*-i 
Xc<0>=0 
N<0>=0 
Phi<©>=0 
C<0>=0 
:   FOR  Y0  loop=»l  TO  Nray 

F1ag=0~  !  RESET  FLAG 

Flag  2=0 

X=0 

Rho=Rho_ini t  i  al 

Trho=TAN<Rho) 

Xy0_l oop=Y0_l oop 

Y  =  Y0_mi  n+De 1 y*Xy0_l oop 

Ns=Ns*l 

Nr=Nr>l 

X<Ns;=X 
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1320  Y<Ns)=Y 

1330  Rho<Nr)»Rho 

1340  On*:  Surf_no*l 

1350  Ns=Ns+l 

1360  Nr=Nr+l 

1370  CALL  Binary_search(X,  Y) 

1380  X<Ns)=X 

1390  Y<Ns)-Y 

1400  CALL  Snel 1 <X,  Y) 

1410  Rho<Nr)=Rho 

1420  IF  <G*="Y")  OR  <G*="y")  THEN  Ph 1 < Y0_1 oop > =Ph i 

1430  Two:  Surf_no=2 

1440  Ns=Ns+l 

1450  Nr=Nr+l 

1460  CALL  Binary_search<X,  Y) 

1470  X<Ns)=X 

1480  Y<Ns)*Y 

1490  IF  <G*="Y")  OR  <G*="y")  THEN  Blind 

1500  IF  Flag=20  THEN  Blind 

1510  IF  F1ag=30  THEN  Flag_30 

1520  CALL  Snel 1 <X, Y) 

1530  Rho<Nr)=Rho 

1540  Flag  15:  IF  Flag<>15  THEN  Flag  10 

1550  ~     GOTO  Bl ind 

1560  Flag_10:    IF  FlagOlO  THEN  Three     !  FLAG  30  WHEN  FIXED 

1570  Xc<Y0  1oop)=0 

1580  Rho<Nr)=0 

1590  GOTO  Bl ind 

1600  Flag_30:  IF  Flag<>30  THEN  Three 

1610  XcCYO  loop)=0 

1620  Rho(Nr)=0 

1630  GOTO  Bl ind 

1640  Three:  Surf_no=3     !  FIRST  (MOVABLE)  IMAGE  PLANE 

1650  Ns=Ns+l 

1660  CALL  Binary  search<X,Y) 

1670  X<Ns)«X 

1680  Y<Ns)=Y 

1690  Four*.  Surf_no*4 

1700  Ns=Ns+l 

1710  CALL  Binary  search<X,Y) 

1720  X<Ns)»X 

1730  Y(Ns)=Y 

1740  GOTO  Next_y0  loop 

1750  Blind:  Ns=Ns+l  *   T  THE  RAY  CROSSED  AHEAD  OF  THE  SECOND  SURFACE 

1760  X<Ns>30     !  AND  WAS  NOT  REFRACTED 

1770  Y<Ns)=0 

1780  Ns-Ns+1 

1790  X<Ns)»0 

1800  Y<N*)»0 

1810  Next_y0  loop:  FIXED  2 

1820  "       Nsp=Ns-l 

1830  IF  <G*»"Y">  OR  <GS»"y")  THEN  Print_grin 

1840  IF  LinecounDLinemax  THEN  GOSUB  Header 

1850  PRINT  USING  Image_dat a;  X< Nsp-3)  ;  Y<Nsp-3)  ;  X< Nsp-2) ; Y < Nsp-2 ) ;  ><< 

Nsp-l);Y(Nsp-i);xc<Y0_loop);o;x<Nsp);Y<Nsp>;Rho 

1860  Li necount=Li necount+1 

1870  GOTO  Continue 

1880  Print_grin:    IF  Li necount >Li nemax  THEN  GOSUB  Header_grin 

1890       ~       PRINT  USING  Image  data_g; X<Nsp-3)  ;  Y(Nsp-3> ; X<Nsp-2) ; Y< Nsp-2) ; X< 

Nsp-1); Y<Nsp-l);Xc(Y0_ioop);O;N<YO~loop);Rho 

1900  Li necount=Li necount+1 

1910  Continue:  NEXT  Y0  loop 

1920   ! 

1930   ' 

1940    Image_data:     IMAGE   X<2<D. DD,  X,  DD.  DD,  3X)  ,  DD.  DD,  X,  DD.  DD,  IX,  6D.  DD, X, D. DD, 3X, 3D. 

DD,X,4D.DD,3X,4D.DD> 

1950    '     Image    data:     IMAGE    D, 2X, DD. DD, 3X, DD. DD,  2X,  DD.  DD, 3X,  DD. DD, 2X, DDD. DD, 3X, 5D. 2 
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D,2X,D,3X,DD.DD,2X,5D.DD,3X,4D.DD   !  USE  THIS  FOR  Y  BULLET  >    10  INCHES 

I960   ! 

1970  Image_data_g:  IMAGE  7X(2(D.  DD,  XD.  DD,  3X)  ,  DD.  DD,  X,  DD.  DD, 3X,  3D. DD, X, D. DD, 3X, DD 

.DD.3X.4D.DD) 

1980   ! 

1990   ! 

2000 

2010 

2020 

2030 

2040 

20S0 

2860 

2070 

2080 

$ 

2090 

2100 

2110 

2120 


GOSUB  Header_end 
GOSUB  Yhard_end 
PRINT  LIN(2), "FINISHED" 
BEEP 

WAIT  250 
BEEP 

IF  (G*="Y")  OR  (G*="y")  THEN  Graph_grin 
R  ay  t  r  ac  e  *  ■  "  N  " 
INPUT  "DO  YOU  WANT  TO  PLOT  THE  RESULTS  OF  THE  TRACE  ?  Y/N" , Ray  trace 


IF  (Ray_trace*  =  "N"  )  OR  (Ray_trace*="n" )  THEN  Rerun 
INPUT  "ON  WHICH  DEVICE:  CRT  (C)  OR  THE  9872  (P)  ?  P/"C",Plot* 

IF  (Plot*="C">  OR  (Plot$="c")  THEN  Graph 
INPUT  "PLEASE  ENTER  THE  SELECT  CODE  OF  THE  GRAPHICS  DEVICE  (DEFAULT 

»  7  )",Pselect 

2130         INPUT  "PLEASE  ENTER  THE  HPIB  ADDRESS  OF  THE  GRAPHICS  DEVICE  (DEFAULT 
»  5  )",Hpib 

2140  Graph:    CALL  Graph 

2150         Y**"NM 

2160         INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  ?  Y/N",Y* 

2170  IF  <Y*="Y" )  OR  (Y*="y")  THEN  Graph 

2180  Density:  PRINTER  IS  16 

2190 

u  wi sual 1 y . 

2200 


PRINT  PAGE,"   The  point  of  maximum  ray  density  is  determined  by  yo 
PRINT  "by  placing  the  cross-hairs  (they  will  appear  automatically) 


2210 

2220 

, down, <-,->), 

2238 

button" 
2240 
s" 

2250 
2260 
2270 
2280 
2290 

rays" 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 


PRINT  "over  the  position  of  maximum  density." 

PRINT  "    This  is  accomplished  by  using  the  DISPLAY  controls  (up 

PRINT  "When  you  get  cursor  in  the  area  of  interest,  use  the  SHIFT 

PRINT  "with  the  DISPLAY  controls  (both  shift  and  display  control 

PRINT  "should  be  depressed  simultaneously)  for  fine  positioing." 

PRINT  LIN(2),"    The  position  of  the  vertical  hair  is  critical," 

PRINT  "because  its  location  is  used  for  the  position  of  the  " 

PRINT  "image  plane  (23)  on  the  GLM  axis." 

PRINT  LIN(2) , "CAUTION  :  Do  not  let  the  image  plane  intercept  any 

PRINT  "in  the  interior  of  the  lens.  If  this  is  done,  those  rays" 

PRINT  "will  be  included  in  the  histogram." 

PRINT  "PRESS  CONT"' 

PAUSE 

PRINT  PAGE,"    The  histogram  is  an  illustration  of  the  density" 

PRINT  "of  the  rays  that  intercept  the  image  plane  versus  radial  " 

PRINT  "distance  from  the  GLM  axis." 

PRINT  LIN(2),"    When  the  position  has  been  located,  PRESS  CONT." 

PAUSE 

Digitize*=»"Y" 

CALL  Graph 

IF  Plot»="P"  THEN  2460   !  P  FOR  HP-9872  PLOTTER 
Dump  crtf="N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/N" , Dump_c rt * 

IF  (Dump  crt*="Y")  OR  ( Dump_crt **"y " )  THEN  GOSUB  Printer 
DISP  "WORKIN'  ON  THE  HISTOGRAM..." 

CALL  Density        !  PRODUSE  A  HISTOGRAM  OF  THE  RAY  DENSITY 

IF  Plot*="P"  THEN  2520 
Digitize*="N"    '  RESET  CONDITION 
Dump_crt  *»"N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  HISTOGRAM  ?  Y/N",Dump  crt$ 
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2513  IF  <Dump_crt$="Y">  OR  (Dump  crt$="y">  THEN  GOSUB  Printer 

2528  Y*""N" 

2533  INPUT  "DO  YOU  WANT  TO  REDRAW  THE  HISTOGRAM  FOR  A  DIFFERENT  IMAGE  P 

LANE  ->    Y/N",Y* 

2549  IF  <Y$="Y">  OR  (Y*="y">  THEN  Z3=50 

2550  IF  <Y$="Y")  OR  <Y*="y")  THEN  Graph 
2569  Digit i:e$*"N"            !  RESET  CONDITION 
2579  Rerun:  PRINTER  IS  16 

2589  Y*="N" 

2599  INPUT  "ARE  YOU  GOING  TO  MAKE  ANY  MORE  RUNS''  Y/N",Y* 

2699  IF  <Y*»"N")  OR  <Y*="n">  THEN  Finished 

2619  Change*="N" 

2629  INPUT  "ARE  YOU  GOING  TO  CHANGE  ANY  PARAMETERS  < n2, n3, A 1 pha, Mr  ay ,  OR 

RHO-INITIAD?  Y'N",  Change* 

2639  IF  <Change*="N" >  OR  <Change*="n" )  THEN  Gymnastics 

2649  GOSUB  Printer 

2659  PRINT  "   If  you  do  NOT  want  to  change  a  particular  parameter" 

2669  PRINT  "PRESS  CONT  in  respose  to  the  prompt." 

2679  INPUT  "WHAT  IS  THE  NEW  VALUE  OF  RHO-INITIAL  ?" , Rho_i n i t l al 

2689  Rho_initial ■- 1*ABS< Rho_i ni  t  i  al > 

2699  Trhoi=TAN(Rho_ini t ial ) 

2799  INPUT  "WHAT  IS  THE  NEW  VALUE  OF  ALPHA?" , A 1 pha 

2719  Talpha»TAN<Alpha> 

2729  INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Y  BULLET  ?",Y_bullet 

2739  INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Ya  ?",Ya 

2749  INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Yb  ?",Yb 

2759  Add_ray=0           !  RESET  CONDITION 

2769  IF  Ya>=Yb  THEN  BEEP 

2779  IF  Ya>»Yb  THEN  DISP  "Ya  MUST  BE  <  Yb.  PLEASE  RE-ENTER  Ya  AND  Yb. 


2789 
2799 
2809 
2819 
ER." 
2829 
2839 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2990 
2990 
3000 
NT  ? 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3030 
3090 
3100 
3110 
3120 


IF  Ya>»Yb  THEN  WAIT  2590 

IF  Ya>«Yb  THEN  2730 

IF  Yb>Y  bullet  THEN  BEEP 

IF  Yb>Y  bul let  THEN  DISP 


'Yb  MUST  BE  <  Y  bullet.  PLEASE  RE-ENT 


IF  Yb>Y_bul1et  THEN  WAIT  2590 

IF  Yb>Y_bullet  THEN  2729 
Aperture3Yb-Ya 

IF  Ya<>9  THEN  Add_ray=l 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  n2?",N2 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  n3?",N3 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF 


3  ?",23 
IS  THE  NEW  VALUE  OF  THE  No.  OF  RAYS?",Nray 
IS  THE  NEW  No.  OF  INCREMENTS  <1090  MAX  )  ?" , N_i ncrement 


INPUT  "WHAT 
INPUT  "WHAT 
Change*- "Y" 
GOTO  Gymnastics 
Graph  grin:  J=l 

FOR  1*1  TO  Nray 

R<I)«SQR<X<J)-^2+Y<J)^2) 
C<I>«N<I>*R<I)*SIN<Phi<I;> 
J»J+5 
NEXT  I 
Y*«"N" 
INPUT  "DO  YOU  WANT  TO  PRINT  A 


Y/N'\Y$ 


TABLE  OF  GRIN  AND  THE  GRIN  CONSTA 


IF  <Y*="N")  OR  <Y$="n">  THEN  3150 
Y_hard*»"NM 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  TABLE  ?  Y/N",Y  hard* 

GOSUB  Yhard 

GOSUB  Header_c 
FOR  I«l  TO  Nray 

IF  Linecount >Linemax  THEN  GOSUB  Header_c 

PRINT  USING  3090; I , N< I > , R< I > , Phi <I>,SIN<Phi <I)),C<I> 

IMAGE  3X,4D,5(5X,4D.4D> 

Linecount=Li  necount +  1 
NEXT  I 

GOSUB  Header  end 
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3130 

3140 

3158 

3160 

3170 

3180 

3190 

32O0 

,Y* 

3210 

3220 

3230 

3240 

3250 

3260 

nc* 

3270 

3280 

3290 

3380 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

,  OR 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 


GOSUB  Yhard_end 
Y**"N" 
INPUT  "DO  VOU  WANT  TO  PLOT  THE  RESULTS  OF  THE  TRRCE  ?  Y/N" ,  Y* 

IF  (Y*="N")  OR  (Y*="n")  THEN  Grinc 
INPUT  "ON  WHICH  DEVICE:  CRT  CO  OR  THE  9372  <P>  ?  C/P  ".Plot* 

CALL  Graph 
Y*="N" 
INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  ?  Y/N" 

IF  (Y*="Y")  OR  (Y*="y")  THEN  CALL  Graph 
Dump_crt  *="N" 

INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/N" , Dump_crt * 
IF  <Durnp_crt$="Y">  OR  <  Dump_crt  *="  y "  )  THEN  GOSUB  Printer 
Grinc:  Grinc*="N" 

INPUT  "DO  YOU  WANT  A  GRAPH  OF  THE  GRIN  CONSTANT  Cir)    ys  r  ?  Y/N",Gri 

IF  (Grinc*="N">  OR  (Grinc*="n">  THEN  Rerun_grin 
INPUT  "ON  WHICH  DEVICE:  CRT  (C>  OR  THE  9872  <P>  ?  C/P  ".Plot* 
Grinci:  Grinc*="Y" 
CALL  Graph 
Grinc*»"N"        !  RESET  CONDITION 
Dump_crt *="N" 

INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/N" , Dump_crt S 
IF  (Dump  crt*="Y")  OR  (Dump  crt*="y">  THEN  GOSUB  Printer 
Y*«"N" 

INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  ?  Y/N"  ,Y* 
IF  (Y*="Y")  OR  (Y*="y">  THEN  Grinci 
Rerun_grin:  Y*«"N" 

G*»"Y"        !  INSURANCE 

INPUT  "ARE  YOU  GOING  TO  MAKE  ANOTHER  RUN  ?  Y/N",Y* 

IF  (Y*="N")  OR  (Y*="n">  THEN  Finished 
Change*="N" 

INPUT  "ARE  YOU  GOING  TO  CHANGE  ANY  PARAMETERS  <n2,  n3,  Al  pha,  Mr  ay 
RHO-INITIAD?  Y/N", Change* 

IF  (Change*="N")  OR  (Change*="n" )  THEN  Gymnastics 
GOSUB  Printer 

PRINT  "   If  you  do  NOT  want  to  change  a  particular  parameter" 
PRINT  "PRESS  CONT  in  respose  to  the  prompt." 
Add  ray=0    !  RESET  CONDITION 

INPUT  "WHAT  IS  THE  NEW  VALUE  OF  RHO-INITIAL  ?" , Rho_i ni t i al 
Rho_ini  t  i  al =-l*ABS(Rho_i  nit i  al ) 
Trhoi  =TAN(Rho_i ni  t  i  al ) 

INPUT  "WHAT  IS  THE  NEW  VALUE  OF  ALPHA? " , A 1 pha 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Nmin  ?u,N»in 
IF  (Grin*="C">  OR  (Grin*="c">  THEN  3578 


INPUT 
INPUT 


'WHAT  IS  THE  NEW  VALUE  OF  Umax  ?",Nmax 
'WHAT 


Yb.  PLEASE  ENTER  AGAIN' 


IS  THE  NEW  VALUE  OF  R8_max  ?",R8_max 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  n3?",N3 

INPUT  "WHAT  IS  THE  NEW  VALUE  OF  THE  No.  OF  RAYS?", Nr ay 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Ya  ?",Ya 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Yb  ?",Yb 
IF  Ya>»Yb  THEN  BEEP 
IF  Ya>»Yb  THEN  DISP  "Ya  MUST  BE  < 
IF  Ya>»Yb  THEN  WAIT  2500 
IF  Ya>*Yb  THEN  3590 
Ap*rture=Yb-Ya 

IF  Ya<>0  THEN  Add_ray=Add_ray*l 
Change**" Y" 

GOSUB  Printer 
Change*="N"  !  RESET  CONDITION 

GOTO  Gymnastics 
Printer:    IF  (Change**" Y" )  OR  (Change*»"y " >  THEN 
IF  (Dump_crt*="Y" >  OR  (Dump_crt*= 
IF  (Y  hard**"Y")  OR  ( Y_hard*="y " I 
IF  (Y_hard*  =  "Y")  OR  ( Y_hard*="y " >  THEN  PRINT  CHR*< 27)4 " &  1 00T ' 
IF  <Dump_crt*=" Y" )  OR  ~Dump_crt *="y " )  THEN  Crt 
GOSUB  Header  initial 


Y_hard*="N" 
'y")  THEN  Y  hard**' 
THEN  PRINTER  IS  0 
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3770 

IF  <G$=" 

3780 

FIXED  0 

3790 

IF  Li  nee 

3800 

IF  Date* 

3810 

PRINT  "Cur 

3820 

GOTO  3840 

3830 

PRINT  "Cur 

3840 

L  i  necount* 

3850  Grini: 

FIXED  2 

3860 

IF  Li  nee 

3870 

PRINT  LIN< 

4  a  "  ;  Al Pha; 

"degrees" 

3880 

L  i  necount ■ 

3890 

IF  Li  nee 

3900 

PRINT  "TAN 

3910 

L i necount  = 

3920 

FIXED  5 

3930 

IF  <GS»" 

3940 

IF  Linec 

3950 

PRINT  LIN< 

3960 

IF  <Gr  i  n 

3970 

IF  Linec 

3980 

PRINT  LIN< 

3990 

Li necount = 

4000 

GOTO  4040 

4010 

IF  Linec 

4020 

PRINT  LIN< 

4030 

Li  necount* 

4040 

IF  Linec 

4050 

PRINT 

4060 

Li  necount  = 

4070 

FOR  1=1  TO 

4080 

IF  Lin 

4090 

IF  I>» 

4100 

IF  I>» 

4110 

PRINT  US 

4120 

Li  necoun 

4130 

IMAGE  3( 

4140 

IMAGE  5X 

4150 

NEXT  I 

4160 

IF  Linec 

4170 

PRINT  LIN< 

4180 

Li  necount* 

4190 

GOTO  Gri 

4200  Grin2: 

IF  Li  nee 

4210 

PRINT  LIN< 

4220 

Linecount* 

4230  Grin3: 

FIXED  3 

4240 

IF  Linec 

4250 

PRINT  LIN< 

B<48>; "Yb  » 

" ; Yb; "  inch 

4260 

IF  <G*»" 

4270 

Li  necount* 

4280 

FIXED  2 

4290 

IF  Linec 

4300 

PRINT  LIN< 

4310 

Li  necount  = 

4320  Grin4; 

FIXED  0 

4330 

IF  Linec 

4340 

PRINT  LIN< 

4350 

Li  necount ■ 

4360 

IF  <G*»" 

4370 

IF  Linec 

4330 

PRINT  LIN< 

4390 

Li necount* 

4400  GrinS: 

FIXED  2 

4410 

IF  Linec 

Y")  OR  <.G*="y")  THEN  Grinl 

ount>Linemax  THEN  GOSUB  Header_i ni t i al 

=  ""  THEN  3830 

ms  No:  " ;  Curue, TAB<48) ; "Date:  ";Date* 

ve  No:  "; Curve 
Li  necount +  1 

ount >Li nemax  THEN  GOSUB  Header_i n 1 t 1 al 

1>,  "RH0<  INITIAL)  =  "  ;Rho_i  ni  t  ill  ;  "degrees" ;  TAB*  43) ;  "K1  F>h 

L  i  necount +  1 

ounOLinemax  THEN  GOSUB  Header_i ni t 1 al 

<RHO-INITIAL>  =  "; Trhoi ;TAB(43>; "TanCAlpha)  =  ";Talpha 

L  1  necount-M 

N")  OR  <G*="n")  THEN  Grin2 
ounOLinemax  THEN  GOSUB  Header_i n i r 1 al 
l),"nl  =  ";Ni: TAB (43); "n3  =  ";N3 
*="C")  OR  <Grin*="c")  THEN  4010 
ounOLinemax  THEN  GOSUB  Header_i ni t 1 al 
l),"Nmin  =  " ; Nmi n; TAB (43) ; "Nmax  =  ";Nmax 
L 1 necount  +  1 

ounOLinemax  THEN  GOSUB  Header_i n 1 t i al 

1 ) , "Nmi n  ■  " ; Nmi n 

Li necount +1 

ounOLinemax  THEN  GOSUB  Header_i n i t i al 

Li necount +1 

Nray  STEP  3 
ecount >Li nemax  THEN  GOSUB  Header_i ni t i al 
250  THEN  PRINT  USING  4140;I,N(I) 
250  THEN  4120 

ING  4130;  I ,  N«r  I),  I+1,N<I+1>,  1+2, NCI +2) 
t =Li  necount  +  1 
5X, "n2<"3D" )  =  ",2D.5D) 
, "n2("3D")  =  ",2D.5D 

ounOLinemax  THEN  GOSUB  Header_i ni %  1 al 

l),"R0_max  =  ";R0_max;"  inches" 

Li necount+1 

n3 

ount>Li nemax  THEN  GOSUB  Header_i n i t i al 

l),"nl  =  ";Ni;TAB<24); "n2  =  " ; N2J TAB< 48) ; " n3  =  " ; N3 

Li  necount +  1 

ount>Li nemax  THEN  GOSUB  Header_i ni t 1 al 

1), "Aperture  =  "; Aperture; TAB<24> ; "Ya  =  ";Ya;"  inch  " ; TA 

Y">  OR  <G**"y")  THEN  Grin4 
Li  necount+1 

ount>Li nemax  THEN  GOSUB  Header  initial 

1),"Z3  =  "JZ3; "inches";TAB<43>7"Z4  *    ";Z4;"  inches" 

Li  necount +  1 

ounOLi  nemax  THEN  GOSUB  Header_i  n  1 1  i  al 

I), "Number  of  Rays  =  ";Nray 

Li necount +1 

Y")  OR  <G*""y")  THEN  Grin5 

ount >Li nemax  THEN  GOSUB  Header_i n 1 t i al 

1), "Number  of  Increments  ■  " ; N_i ncrement 

Li  necount*l 

ount >Li nemax  THEN  GOSUB  Header  initial 
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4428 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 

4750 

4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 

4990 

5000 

5010 

5020 

5030 
5040 


PRINT 

Lin»countaLin*count»l 
GOSUB  Headtr_end 
Crt:         IP  <Dump_crt*="Y">  OR  <  Dump_crt  *="y "  )  THEN  DUMP  GRAPHICS 

IF  <Y_hard**"Y")  OR  <.  Y_hard*  =  "  y  "  >  THEN  PRINT  CHR*<  27)4,  "S,  1  36T  " 
Change*="N"  !  RESET  CONDITION 

Dump_crt  *  =  "N" 
Y_hard*="N" 
RETURN 
Yhard:  IF  < Y_hard*=" Y " )  OR  < Y_hard*=" y" )  THEN  Flag*»"l" 
IF  <Y_hard*="N")  OR  < Y_hard*="n" >  THEN  Flag*="0" 
IF  <Y~hard*="Y")  OR  < Y_hard*="y " >  THEN  PRINTER  IS  0 
IF  Flag*="l"  THEN  PRINT  CHR*  (  27)5."  S.  1  OOT" 
RETURN 
Yhard_er,d:  IF  <Flag*="l">  OR  <Flag*  =  "0">  THEN  PRINT  CHR*  <  27 )«."«.  1  36T " 
IF  <Flag*="l")  OR  <F1ag*="0">  THEN  PRINTER  IS  16 
RETURN 
Header_coef:    IF  L i necount >Li nemax  THEN  GOSUB  Header_coef_end 
Li necount =8 
PRINT  PAGE;LIN(5> 

GOSUB  Char_short 
PRINT  LIN(1)TSPI=K6);  "COEFF IC IENT3 " ; LIN< 1 > 

GOSUB  Char_»hort 
PRINT  LIN<2) 
RETURN 
Header_coef_end:  PRINT  LIN<2> 

GOSUB  Char_5hort 
RETURN 
Header_c:    IF  Li necount >Li nemax  THEN  GOSUB  Header_end 
Li  necount =0 
PRINT  PAGE;LIN<5> 

GOSUB  Char 
PRINT  LIN<1),"      I  n<I>  r<I)  Phi<I) 

Sin<Phi>        c<I)";LIN<l) 

DISP  "      I  n<I)  r<I)         Phi <I) 

Sin<Phi)         c<I>" 
GOSUB  Char 
PRINT  LIN<2> 
RETURN 
Header  c  end:    GOSUB  Header_end 

RETURN 
Header_i ni t i al :    IF  Li necount >Li nemax  THEN  GOSUB  Header_end 
Li  necount=0 
PRINT  PAGE;LIN<5>;TAB<28);"INITIAL  PARAMETER  VALUES "; L IN<  1  > 

GOSUB  Char 
PRINT  LIN<2> 
RETURN 
Char_short:  Char_max=25 

FOR  2=0  TO  Char_max 

IF  2=Char  max  THEN  PRINT  CHR$<228> 
IF  Z=»Char~max  THEN  4920 
PRINT  CHR*<223>; 
NEXT  2 
RETURN 
Header:    IF  Li necount >L i nemax  THEN  GOSUB  Header_end 
Linecount=0 
PRINT  PAGE,LIN<5> 

GOSUB  Char 
PRINT  LIN<1>,"    (X0,Y0)       CXI,  YD        <X2,Y2> 
<X3,Y3>  RHO" ; LIN<1> 

GOSUB  Char 
PRINT  LIN<2) 

DISP  "    <X0,Y0)       <X1,Y1>        <X2,Y2) 
RHO" 


<Xc, Yc) 


<Xc,Yc) 


<X3, Y3) 

RETURN 
Header_gr i n 


IF  Li necount >Li nemax  THEN  GOSUB  Header_end 
Li necount=0 
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5050 

PRINT  PAGE,LIN<5> 

5060 

GOSUB  Char 

5070 

PRINT  LIN<  l>," 

(X0,Y0> 

<X1,Y1> 

<X3, Y3> 

<Xc, 

Yc> 

N2        RH0";LIN<1> 

5080 

DISP 

<X0,Y0> 

<  X  1 ,  Y  1  ) 

<X3, Y3> 

(Xc, 

Yc> 

N2        RHO" 

5090 

GOSUB  Char 

5100 

PRINT  LIN<2> 

sue 

RETURN 

5120 

Head 

er  end!  PRINT  LIN<2) 

5130 

GOSUB  Char 

5140 

RETURN 

5150 

Char 

:  FOR  2z=0  TO  79 

5160 

IF  2z=79  THEN  PRINT 

CHR*<228> 

5170 

IF  Zz=79  THEN  5190 

5180 

PRINT  CHR*<223); 

5190 

NEXT  2z 

5200 

1 

PRINT  RPTJ<"=",30>       ! 

THIS  IS  fl  LOT 

FASTER,  BUT 

NOT  AS  PRET 

5210 

RETURN 

5220  Finished: 

5230  END 

5240  SUB  Slope(Y) 

5250  OPTION  BASE  0 

5260  ! 

5270  COM  INTEGER  I , J , Curve , Np, Nn, N, Ns, Nr , REAL  AnegC * > , Apos< * ) , A< * ) , 2 1 , 23 , 24 

5280  COM  Alpha,Talpha,Rho,Trho, Rho_i  nitial  ,Trhoi ,  Phi ,Tol ,Norm,Alpha2 

5290  COM  Nl , N2, N3, Percent_i mage, Ya, Yb, Aperture, Y  bullet 

5300  ! 

5310  COM  INTEGER  Y0_1 oop, Nray , Add_ray, Surf_no, Fl  ag, Fl ag2, N_i ncrement , Hi t  total 

5320  ! 

5330  DEG 

5340  IF  Surf_no=2  THEN  Two 

5350  One:  Alpha2=Alpha 

5360  Norm=Alpha2-90 

5370  SUBEXIT 

5380  Two:  IF  Y<0  THEN  Negative 

5390  Positive:  Tan  m2=0             !  SLOPE  WRT  Y-AXIS   Cdx'dy] 

5400  F0R~I=1  TO  Np 

5410  Tan_m2=Tan_m2+I*Apos< I>*Y~< 1-1 > 

5420  NEXT  I 

5430  M2=ABS<ATN(Tan_m2>>   !  THE  ANGLE  IS  POSITIVE  CM  WRT  Y-AXIS 

5440  A1pha2=90-M2   !  THE  ANGLE  IS  POSITIVE  CCW  WRT  X-AXIS 

5450  Norm»A1pha2-90 

5460  SUBEXIT 

5470  Negative:  Tan  m2=0 

5480  F0R~I*1  TO  Nn 

5490  Tan  «2=Tan  n»2+I*Aneg<  I  >»YA<  1-1) 

5500  NEXT  I 

5510  M2»ABS<ATN<Tan_n>2>> 

5520  Alpha2»90-M2 

5530  Tnor«i»-l/TAN<Alpha2) 

5540  Norm»ATN<Tnorm>-180 

5550  SUBEND 

5560  SUB  Snel 1 <X,Y> 

5570  OPTION  BASE  0 

5580  ! 

5590  COM  INTEGER  I , J , Curve, Np, Nn, N, Ns, Nr , REAL  Aneg< * ) , Apos <* ) , AC *) , 21 , Z3, 24 

5600  COM  Alpha,  Tal  pha.Rho,  Trho,Rho_i  ni  t  i  al  ,  Trhoi  ,  Phi  ,  Tol  ,  Norm, A1pha2 

5610  COM  HI, N2.N3, Percent  i wage , Ya, Yb, Aperture , Y_bu 11 et 

5620  ! 

5630  COM  INTEGER  Y0_1 oop, Nray , Add_r ay , Surf  no,  Fl  ag,  Fl ag2 , N_i ncrement , H i t_t  ot  al 

5640  COM  INTEGER  L i necount , L i nemax 

5650  COM  INTEGER  Pselect.Hpib 

5660  ! 

5670  COM  REAL  Nm  l  n,  Nmax  ,  R0_max 

5630  -COM  Ray_trace«, Di gi t i ze«, Gri n*,G*,Gr inc*. Plot*, Date* 

5690  COM  X(*>, Y<*),Xc<*>,N<*>,R<*> 
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3780 

5719 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

ho) 

5860 

5878 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6Q6Q 

€Q?Q 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6178 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 


i 
DEG 

IF  Surf_no=2  THEN  Two 
One:  Nnl=Nl 
Nn2=N2 

Thetai=90-<A1pha+ABS<Rho) ) 
CALL  Slope<Y) 

IF    Thetai<0    THEN    Neg_thetai 
GOTO    Sams 
Neg_thet ai :    Flag=5 

Thetai =ABS<Thet ai ) 
Sip=Nl/N2*Sin(Thetat ) 

IF  ABS<Sip;>l  THEN  Wrong 
Th«t ar=ASN(Si p) 
Rho=Norm-Thetar 

IF  <ABS<Rho)<39. 99999)  OR  <  ABSCRho)  >90.  00801  )  THEN  Trho=TAN<R 

IF  <ABS<Rho)>39. 99999)  AND  < ABSCRho) <=90)  THEN  Trho=-99?999 9 
IF  <ABS<Rho)>90)  AND  ( ABS< RhoX 90. 3OQ0 1 )  THEN  Trho=9999999 
SUBEXIT 
Two:  Nnl=N2 
Nn2=N3 

IF  Y<0  THEN  Negative 
CALL  Slope<Y) 
Thetai =90-ABS <Rho) -A lpha2 

IF  Thetai  <0  THEN  Neg_thetai2 
Same:     IF  <G#="Y")  OR  <G*="y")  THEN  GOSUB  Grin 
St n_i  pr i me=Nnl/Nn2*SIH<Thet ai ) 

IF  ABS<Sin_iprime)>l  THEN  Wrong 
Thetar=ASN<Si n  iprime) 
Rho=Alpha2+Thetar-90     !  USE  ALPHA2  INSTEAD  OF  NORM  BECAUSE  THE 

!  SIGN  OF  THE  ANGLE  IS  DESIRED 
Trho3TAN<Rho) 

Phi=A1pha-Rho      !  USED  FOR  GRIN 
SUBEXIT 
Heg_ihetai2:  Thetai =ABS<Thet  ai  ) 

Sip»Nnl/Nn2*SIN<Thetai  ) 

IF  Abs<Sip)>l  THEN  Wrong 
Thetar=ASN<Sip) 
Rho=Norm-Thetar 

IF  ABS<Rho)>=90  THEN  Skip   !  THE  RAY  WILL  NOT  INTERCEPT 

!  THE  IMAGE  PLANE 
IF  ABS<Rho)<39. 99999  THEN  Trho=TANCRho) 

IF  <ABS<Rho)>89. 99999)  AND  <ABS<Rho)<90)  THEN  Trho=-9999999 
SUBEXIT 
Skip:  Flag*15 

IF  ABS<Rho)>=90. 080001  THEN  Trho=TAN<Rho) 
IF  ABS<Rho)<90. 000001  THEN  Trho=9999999 
Rhop"180-ABS<Rho) 
Trhop»TAN<Rhop) 
Xc<Y0  loop)=X-Y/Trhop 
SUBEXIT 
Wrong:  Flag»10   !  TOTAL  INTERNAL  REFLECTION  AT  THE  SECOND  SURFACE 

SUBEXIT 
Negative:    CALL  Slope<Y) 

Thetai =90  +  ABS <Rho) -A  lpha2 
Sip»Nnl/Nn2*SIN<Thetai ) 

IF  ABS<Sip)>l  THEN  Wrong 
Thetar*ASN<Sip) 
Rho=Norm-Thet ar 
TrhcTANCRho) 
SUBEXIT 
Grin:  N2=0 

IF  <Crin*="P")  OR  <Grin*="p")  THEN  P 
C:       CALL  Index_c<X,Y) 
N<Y0  loop;=N2 
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6350 

£360 

6378 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

64S0 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

ul  let 

6650 

6660 

6679 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 


IF  Surf_no=i  THEN  Nn2=N2 
IF  Surf_no=2  THEN  Nnl=N2 
RETURN 
P:       CALL  Index_p<X,Y) 
N<Y0_loop)=N2 

IF~Surf_no=l  THEN  Nn2=N2 
IF  Surf_no=2  THEN  Nnl=N2 
RETURN 
D 

i  nary_search<X,  Y) 
ION  BASE  0 


SUBEH 
SUB  B 

OPT 

! 

COM 
COM 
COM 
I 

COM 
COM 
COM 
I 

COM 
COM 
COM 
; 

COM 
I 

DEG 
DEF 
DEF 

DEF 

R«l 


t.  total 


INTEGER  I,  J, Curve, Np,Hn,N,Ns,Nr, REAL  Aneg<.  *  >  ,  Apos  <  *  >  ,  fl<  *  ) ,  Zl ,  -3,  24 
Al  pha,  Tal  pha,  Rho,  Trho,  Rho_i  m  t  i  al  ,  Trhoi  ,  Phi  ,  Tol  , Norm, Al pha2 
N1,N2, N3, Percent _i mage, Ya, Yb, Apert ure, Y_bul  l et 

INTEGER  Y0_loop, Nray , Add_ray, Surf_no, Fl  ag, Fl ag2, N_i ncrement , Hi  t_ 
INTEGER  Li necount , L i nemax 
INTEGER  Pselect.Hpib 

REAL  Nmi n, Umax, R0_max 

Ray_trace*, Di  gi  t i ze*\  Cr i  n*,  G*,  Gr i  net,  PI  ot *,  Dat e$ 

X<*),Y<*),Xc<*),N(*),R(*) 

Rho<*),Phi  <*),C<*),Y3<*>,Hit<*) 


FNA<X,Y)=X-Y/Trho 
FNAi (X, Y)=X-Y/Talpha 
FNXn<A)=A-Y  bullet/Trho 


!  FINDS  THE  INTERCEPT  OF  THE  RAY  AND  Y  =  -Y  b 


IF  Surf  no=l  THEN  One 
IF  Surf^no=2  THEN  Two 
IF  Surf_no»3  THEN  Three 
Four:  Dy=1<24-X)*Trho 
Y»Y+Dy 
X=24 
SUBEXIT 
Three:    IF  <Y>0)  AND  <Trho>0)  THEN  Skip  ! THE  RAY  WILL  NOT  CROSS  THE  X-AXIS 

Xc<Y0_loop)=FNA<X, Y> 
Back:  Dy*<Z3-X)*Trho 
Y=Y+Dy 
X-23 
SUBEXIT 
One:    CALL  Xlpos<X,Y) 

SUBEXIT 
Two:  A=FNA<X,Y> 

IF    Flag=5    THEN    Search2 
Flag»0 
F1ag2»0 

IF  <G*="Y">  OR  <G*="y"> 
IF  A<21  THEN  Negative   ! 
GOTO  Positive  ! 


!  Theta  I  <  0  FROM  SNELL 


Search2: 


THIS  ROUTINE  IS  EN 
FIRST  SURFACE  IS  <  0 

THIS  MEANS  Thetal 
<ie.  NORMAL  TO  THE  F 
THE  NORMAL.  THIS  COR 
POINT  OF  APPROACH  <C 

WHEN  THIS  HAPPENS 
TO  MISS  THE  FIRST  AN 

THE  ROUTINE  FIRST 
SURFACE.  IF  30,  CONT 
IF  NOT  THEN  THE  ROUT 
INTERCEPT  <IF  ANY). 


THEN  Grin 
THIS  IS  A 
FROM  THAT 
TERED  WHEN 

DEGREES. 
HAS  DECREAS 
IRST  SUPFAC 
RESPONDS  TO 
PA). 

RH0<1)  CAN 
D  SECOND  SU 
CHECKS  TO  S 
ROL  SWITCHE 
INE  MARCHES 


SEPARATE 

PERFORMED 

THE  ANGLE 


AND  UNRELATED  TEST 
IN  SEARCH  2 
OF  INCIDENCE  ON  THE 


ED  FPOM  ITS  AXIAL  VALUE  TO  0 
E)  THEN  CONTINUED  TO  ROTATE  PAST 
A  TARGET  AT  OR  NEAR  CLOSEST 


BE  LARGE  ENOUGH  TO  CAUSE  THE  RAY 
RFACE. 
EE  IF  THE 
S  TO  PASTE 
SLOWLY  DC 


RAY  CROSSES  THE  SECOND 
"ER  BISECTION  ROUTINE. 
)OWN  THE  RAY  TO  FIND  THE 
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7018 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7448 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7578 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 


IF  A>Zl  THEN  Posit  ik/e 


01 


Delta*. 
X12»X 
Y12=Y 
EVEN  THOUGH  THE  X-INTERCEPT  APPEARS  TO  BE  <  21,  THE  SECOND  SURFACE 
COULD  BE  IRREGULAR  ENOUGH  TO  CAUSE  THIS  SIMPLE  CHECK  TO  BE  DECEIVING. 

THE  RAY  IS  ASSUMED  TO  HAVE  INTERCEPTED  THE  SECOND  SURFACE  IF  THE 
DIFFERENCE  BETWEEN  THE  RAY  POSITION  AND  THE  SECOND  SURFACE  <  TOLERANCE 
March:  Del tax=De1 ta*COS<Rho> 
Del tay=De 1 1  a*S  IN<Rho;> 
X12=X12+Deltax 
Y12=Y12+Deltay 

IF  Y12<0  THEN  Missed 
X2=0 

CALL  X2pos<X2,Y12) 
Xsaue*X12-X2 

IF  ABS<Xave;<=Tol  THEN  Donel 
IF  Xsave<8  THEN  March 
IF  Xsave>8  THEN  Found_it 
Donel:  X=<X2*X12>'2 
Y»Y12 
SUBEXIT 
Missed:  X=A 
Y*0 
GOTO 
Found  i  t 


YOU  HAVE  REACHED  THE  X-AXIS 


FOUND  THE  SURFACE  WITHIN  TOL 

KEEP  LOOKING 

THE  RAY  CROSSED  X2P0S 


THE  RAY  HAS  MISSED  THE  POS 
DRAW  THE  RAY  TO  THE  X-AXIS 


AND  NEG  SURFACES 


Posi  tiv«; 


Bl  ind 

Xmid=X12  ! 

Xlast=Xmid  ! 

Ymid*Y12 

Ylast=Ymid 

Xsave=0 

GOTO  Recurse_p 

X 1  =0 

X2-0 

CALL  Xlpos<Xl 

CALL  X2pos<X2,Y> 

IF  X2<*X1  THEN  Woops 


THE  RAY  HAS  CROSSED  THE  SECOND  SURFACE. 
BISECTION  ROUTINE  FOR  SPEED 


GO  TO  THE 


,Y) 


Xmid=A        ! 
Xmid=A        ! 
Xlast=Xmid    ! 
Y»id=0 
Ylast=Ymid 
Xsa've=0 
Recurse_p:  Xroi d*<X+R*Xmi d>/< 1+R> 
Ym i d*< Y+R* Ym 1 d > / < 1 +R > 
X2»0 

CALL  X2pos<X2,Ymid> 
Xsave»X2-Xmid 

IF  Xsave<0  THEN  First 
IF  Xsave>0  THEN  Second 
IF  Xsawe=8  THEN  Done 
Recurse  n:  Xmi d*<X+R*Xmi d>/< 1+R) 
Ymi d» < Y*R*Ymi d > / < 1 +R > 
X2»0 

CALL  X2neg<X2,Ymid> 
Xsaue=X2-Xmid 

IF  Xsave<0  THEN  First 
IF  Xsawe>0  THEN  Second 
IF  Xsave=8  THEN  Done 
First:    IF  ABS<XsaveXTol  THEN  Done 
XI ast  =Xmt d 
Ylast*Ymid 

IF  Flagyl  THEN  Recurse_n 
GOTO  Recurse_p 
Second:    IF  ABSCXsaveX  Tol  THEN  Done 
X=Xmid 
Y«Y»id 


THE  RAY  HAS  CROSSED  THE 

THE  RAY  HAS  CROSSED  THE 

SURFACE.  THEREFORE  Y>0  AT 


X-AXIS  BEHIND 
X-AXIS  BEHIND 
THE  INTERCEPT 


THE 
THE 


SECOND 
SECOND 


INTERCEPT 
INTERCEPT 
INTERCEPT 


INTERCEPT 
INTERCEPT 
INTERCEPT 


IS  BEHIND  THE  MIDPOINT 
IS  AHEAD  OF  THE  MIDPOINT 
IS  THE  MIDPOINT 


IS  BEHIND  THE  MIDPOINT 
IS  AHEAD  OF  THE  MIDPOINT 
IS  THE  MIDPOINT 
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7688 
7690 
7700 
7710 
7720 
7730 
7740 
7730 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
SSED 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
3000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
3030 
8090 
8100 
8110 
8128 
3130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
3320 
8330 


Xmi d  =  xi jit 
Ymid=Ylast 

IF  FlagM  THEN  Recurse_n 
GOTO  Recurse_p 
Negative:  X1=0 
X2=0 
Xc<Y0_loop>=A 

CALL  Xln*g<Xl,Y> 
CALL  X2neg<X2,Y) 
IF  X2<=X1  THEN  Woops 


Flagyl 

Ylla-Y  bul let 
X»A 


THE  RAY  CROSSES  THE  X-AXIS  AHEAD  OF  THE  SECOND 
SURFACE  AND  COULD  POSSIBLY  INTERCEPT  X2NEC. 

THE  SAME  TYPE  OF  TESTS  DESCRIBED  ABOVE 
IN  SEARCH  2  ARE  PERFORMED  HERE. 


Search: 


Search  n 


Y=0 

Delta=. 01 
Xll»FNXn<A> 
X2=0 

CALL  X2neg<X2, Yll) 

IF  X11>X2  THEN  Ok   !  XU  >  X2max 
XU*A 
Y11=0 

Del t ay* Del ta*SIN<Rho> 
Del tax=Del ta*C0S<Rho) 
:    IF  ABS<Yll>>=Y  bullet  THEN  Missed2 


!  THE  SECOND  SURFACE  WAS  MI 


Xll-Xll-t-Del  tax 
Yll-Yll+Deltay 
X2»0 

CALL    X2neg<X2,YU) 
Xsave=»XU-X2 

IF    ABS<XsaueX=Tol    THEN    Victory 

IF  Xsaue>=0  THEN  Ok  ! 

IF  Xsave<0  THEN  Search  n     !  KEEP  LOOKING 


FOUND  THE  SURFACE 


Missed2: 


Vi  c  t ory : 


X=FNXn<A> 
Y»-Y_bul let 
G0T0~B1 ind 
Flag2»l 
X»(XU+X2)/2 
Y=Y11 


!  DRAW  THE  RAY  UNTIL  Y=  -Y  bullet 


THE  INTERCEPT  OF  THE  RAY  AND  X2NEG  HAS  BEEN  FOUND. 
GO  TO  THE  BISECTION  ROUTINE  FOR  SPEED. 


SUBEXIT 
Ok:  F1ag2=l 
Xmia=Xll 
XI ast=Xmi  d 
Ymid*Yll 
Ylast*Y»id 
GOTO  Recurse_n 
Done:  X»<X2+Xmid~/2 
Y*Ymid 
SUBEXIT 
Skip:  Xc<Y0_1oop)»0 

GOTO  Back 
Blind:    IF  Flagyl  THEN  Blind  n 
Flag»20 
X»A 
Y=0 

Xc<Y0  loop>=A 
SUBEXIT" 
Bl i  nd_n:  Fl ag=20 

Xc<Y0  loop)=A 
SUBEXIT" 
Uoops:    F1ag*30 
X-X2 
Y=Y 

SUBEXIT 
Grin:  Ai=23 

Y»<A-Ai  )*(Talpha*Trho)/'<Trho-Talpha) 


!  THE  SECOND  SURFACE  HAS  BENT  AND  CROSSED  THE  FIRST 
STOP  THE  RAY  TRACE 


INTERCEPT  OF  TWO  LINES 
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8348 
8330 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8468 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
88O0 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
3980 
8990 
90O0 


X=A+Y/Trho 

Xc<Y0  loop>=A   !  REQUIRED  FOR  DRAWING  PURPOSES 
SUBEND 
SUB  Graph 

OPTION  BASE  0 
! 

COM  INTEGER  I , J , Curve , Up, Nn, N , Ns , Nr , REAL  Aneg< * ) , Apos C * ) , A<*) , 21 , 23, Z4 

COM  Alpha,Ta1pha,Rho,Trho,Rho_init  i  al  ,  Trnoi  ,  Phi , Tol , Norm, Al pha2 

COM  Nl, N2, N3,Percent_im age, Y a, Yb, Aperture, Y_bul 1 et 
! 

COM  INTEGER  Y0_loop,Nray,  Add_ray,  3urf_no,  Fl  ag,  Fl  ag2,  N_i  ncrement ,  Hi  t_t, ot  al 

COM  INTEGER  L i nee ount , L t nemax 

COM  INTEGER  Pselect.Hpib 
! 

COM  REAL  Nmi  n,  Nmax,  R0_ma.x 

COM  Ray_trace*, Digitize*,Grin*,G*,Grinc*,  Plot*, Date* 

CON  X<*>, Y<*>,Xc<*>,N<*>,R<*> 

i 

COM  Rho<*>,Phi  <*>,C<*>, Y3<*>,Hi t <*) 

! 
I 
DEC 
PRINTER  IS  16 

IF  <Grinc**"Y">  OR  (Gr i nc*="y " )  THEN  Grinc 
IF  (Digi t ize*="YM)  OR  <Di gi t i ze*="y " )  THEN  Digit 
Drau_axes:      CALL  Plot 
First_surt":  FIXED  2 

LINE  TYPE  8 
Y*Y  bul let 
MOVE  0,0 
X»Y/Talpha 
DRAW  X,Y 
DRAW  100, Y 
MOVE  0,0 
DRAW  X,-Y 
DRAM  100, -Y 

IF  <G*=»"Y">  OR  <G*»"y">  THEN  Grin_imag« 
X2pos:  MOVE  Apos<0>,0 

FOR  Y*0  TO  Y_bul1et  STEP  .01*Y_bullet 
X2pos=0    "* 

FOR  1=0  TO  Np 

X2pos=X2pos+Apos<  I  >*YM 
NEXT  I 
DRAM  X2pos,Y 
NEXT  Y 
X2neg:  MOVE  Apos(0>,0 

FOR  Y»0  TO  -Y_bullet  STEP  -. 01*Y_bul 1 et 
X2neg»0 

FOR  1*0  TO  Nn 

X2neg»X2neg+Aneg  < I ) *Y* I 
NEXT  I 
DRAW  X2neg,Y 
NEXT  Y 

EXIT  GRAPHICS 
Y*»-N" 
INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  WITHOUT  RAYS  ?  Y/N",Y* 

IF  <Y*»"Y">  OR  <Y«»"uM>  THEN  GOSUB  Dump  it 
GRAPHICS 
First_imag#:  LINE  TYPE  5 

MOVE  23, Y  bul let 
DRAM  23,-Y_bul let 
Second_image:  LINE  TYPE  6 

MOVE  Z4,Y_bul let 
DRAM  24, -Y  bul let 

IF  <G*="N")  OR  <G*="n")  THEN  First 
Grin_tmage:  LINE  TYPE  7 

Ym»-Y  bullet*. 5*Y  bullet 
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9010 

9026 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9130 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9330 

9360 

9370 

9380 

9390 

GREES 

9400 

9410 

9420 

9430 

9440 

9430 

9460 

9470 

9480 

9490 

9500 

9510 

9320 

9330 

9340 

9550 

9560 

9570 

9580 

9390 

9600 

9610 

9620 

9630 

GREES 

9640 

9650 


Xm=Z3+Ym/Talpha 

MOVE  Xm.Ym 
Ym=-Ym 

Xm*Z3+Ym/Talpha 
DRAW  Xm.Ym 
REM  DRAW  THE  RAYS 
First_:   LINE  TYPE  1 

CLIP  0,100,-Y  bul let , Y_bul let 
1=0 

FOR  Rav  first=l  TO  Nray 
MOVE  X(I>,Y<I> 
DRAM  X<I+1)(Y<!+1) 
I»I*S 
NEXT  Ray_first 
Second_:  1=1 

FOR  Ray_second=l  TO  Nray 
MOVE  X<I>, Y<I> 
DRAW  X<I*1),YU*1> 
1  =  1*5 
NEXT  Ray  second 
IF  <G*="Y">  OR  ~G*="y">  THEN  Wait_ 
Fi rst_i mage_p:  1=2 

Nr=-1 

FOR  Ray_image=l  TO  Nray 
Nr=Nr+3 
MOVE  X<I>,Y<I> 

IF  X<I><>0  THEN  Ok 
1  =  1*3 

GOTO  Next_ray_i mage 
Ok:  IF  X(I+1>=0  THEN  Reflect 

DRAW  X<I*1),Y<I+1> 
1  =  1*5 

GOTO  Next_ray_i mage 
Reflect:  !  IF  THE  ANSWERE  TO  THE  QUESTION  IS  NO,  THE  RAY  WAS  TOTALLY 
!  REFLECTED  AND  DO  NOT  DRAW  A  LINE 
!   IF  A  LINE  IS  DRAWN,  THEN  ABS(RHO)  >    90  DEGREES 

IF  <Xc<Ray_image)=0>  OR  <Rho<.Nr>=0)  THEN  9408 
Trho=-l*Y<I>/<Xc<Ray  i mage>-X< I > > 
DRAW  X<I>-<Y<I>*Y_bu7let>>'Trho,-Y_bul  let   !  RHO  2   90  DE 

1  =  1+5 
Next_ray_i mage:  NEXT  Ray_image 
Decision"  WAIT  2800 

EXIT  GRAPHICS 

BEEP 

Y*""N" 

INPUT  "DO  YOU  WANT  TO  PLOT  TO  THE  SECOND  IMAGE  PLANE  ?  Y/N",Y* 

GRAPHICS 

IF  <Y*="N")  OR  <Y$="n")  THEN  Wait_ 
Second  image_p:  1=3 

Nr«-1 

FOR  Ray_image2=l  TO  Nray 
Nr=Nr*3 
MOVE  X<I),Y<I) 

IF  X<I)<>0  THEN  0k2 
1  =  1+5 

GOTO  Next  ray  image2 
0k2:  IF  X<I*T)=0~THEN  Reflect2 

DRAW  X<I*1),Y<I+1) 
1  =  1*5 

GOTO  Next_ray  image2 
Reflect2:  IF  <Xc<Ray  7mage2>=0>  OR  <Rho<Nr)=0)  THEN  9640 

Trho*-l*Y<I)/~Xc<Ray_image2)-X(I)> 
DRAW  X<I)-<Y<I)*Y  buTlet)/Trho,-Y  bullet   !  RHO  >   90  DE 


1  =  1*5 
Next_ray_i mage2:  NEXT  Ray_image2 
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9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9970 

9980 

9990 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 


GOTO  Wait_ 
Grinc:    CALL  Plot 
!      Rl«C<l>'<N<l>*SIN<Phi <1>)> 
!        MOVE  R1,C<1> 

MOVE  R(t),C<l) 
FOR  1=2  TO  Nray 
!      R»C<I V<N<I)*SIN(Phi <I>>> 
!      DRAW  R,C<I) 

DRAW  R<  I  >  ,C  I  • 
NEXT  I 
Wait_:  !  SETGU  !     THIS  ROUTINE  PRESENTS  THE  PLOT  TO  THE 

LINE  TYPE  1  !  OPERATOR  TO  STUDY  UNTIL  READY  TO  CONTINUE 

LDIR  0 
MOVE  2,2 
CSI2E  2 

LABEL  "PRESS  CONT" 
CSI2E  15/-4.54 
SETUU 
BEEP 

WAIT  250 
BEEP 
PAUSE 

EXIT  GRAPHICS 
SUBEXIT 
Digit:  GRAPHICS 

POINTER  23,0 
DIGITI2E  23, Y 
LINE  TYPE  5 

MOVE  23,Y_bul let 
DRAM  23,-Y_bul let 
SETGU 
LDIR  0 
LINE  TYPE  1 
LORG  5 
CSI2E  2.5 
Centerx=72.5     !  CHANGE  IN  Laxes  also 

MOVE  1.5*Centerx,5 
LABEL  USING  1O040;23 

IMAGE  "Image  Plane  :  ",DD.DD,"  inches" 
SETUU 

CSI2E  15/4.54 
WRIT  2500 
EXIT  GRAPHICS 
SUBEXIT 
Dump  it:PRINTER  IS  0 

PRINT  CHR$(27)«."8.100T" 
DUMP  GRAPHICS 
PRINT  CHR*<27>8."S.136T" 
PRINTER  IS  16 
RETURN- 
SUBEND 
SUB  Plot 
OPTION  BASE  0 
i 

COM  INTEGER  I , J, Curve, Np, Nn, N, Ns, Nr , REAL  Aneg< * ) , Apos < * > , A< *> , 21 , 23, 24 
COM  Al pha, Tal pha, Rho, Trho, Rho_ini  t  i  al , Trhoi , Phi , Tol , Norm, Alpha2 
COM  Nl , N2.N3, Percent _i  mage, Ya, Yb, Aperture, Y_bul 1 et 
; 

COM  INTEGER  Y0_1 oop, Nray , Add_ray,  Surf_no,Fl  ag, Fl ag2, N_i  ncrement , Hi  t_total 

COM  INTEGER  L i necount , L i nemax 

COM 

i 


INTEGER    Pselect.Hptb 


COM    REAL    Nmin,Nmax,RO_max 

COM    Ray    t race*, Di gi t i ze*, Gri nS, GS, Gri nc*, PI ot $, Dates 

COM    X<*7,Y<*>,Xc<*>,N<*>,R<*> 

; 

COM    Rho<*),Phi  <*>,C<*>,Y3<»>,Hit<*) 
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FNMAX  AND  FNMIN  HAVE  BEEN  MADE  INTO  SUBROUTINES 


10338   ! 

10340    !  THE  ORIGINAL  VERSION  OF  THIS  ROUTINE  IS  LOCATED  IN  THE  HP-9345 
10330    !  LIBRARY  TAPE  No.  TWO  SER:  09845-10285   PROGRAM  "REGPLT" 
10360 
10370 
10380 
10390 

10400  Set_up:    IF  <P1ot*="P")  OR  <Plot*="p")  THEN  P9872a 
10410  Crt:  PLOTTER  IS  1 3, "GRAPHICS" 
10420       GOTO  10440 

10430  P9872a:  PLOTTER  IS  Psel ect , Hpi b, "9872A" 
10440  GCLEAR 

10450  LIMIT  0,184,0,148  !  ALL  UNITS  IN  MILLIMETERS 

10460  LINE  TYPE  1 

10470  LOIR  0 

10480  LORG  5 

10490  ! 

10500  DATA  -2,-1,  1,2 

10510         READ  Um,Dm,Md,Mu 
10520  DATA  .39794, .69897, .87506 

10530         READ  Log2,Log5,Log7 
10540  ! 

10550  IF  <Grinc*="Y")  OR  <Grinc*="y">  THEN  Grinc 

10560  IF  <GS«"Y">  OR  <G*=>"y")  THEN  Grin 

10370  IF  <Digitize*="Y">  OR  <Di gi t i ze*="y " >  THEN  Digit 

10580  IF  <Ray_trace*=»"Y">  OR  (Ray  trace*="y">  THEN  Ray 

10590  ! 

10600  Ray : Xmi n=Xorg»Yorg=0 
10610      Xmax-10 
10620      Ymax»Y_bul let 
10630      Ymin*-Ymax 

10640      PRINT  PAGE,"   Xmax  is  the  maximum  length  along  the  GLM  axis  which  you" 
10650      PRINT  "want  to  be  displayed." 

10660      PRINT  LINO),"   A  rule  of  theumb  is  to  pick 'a  typical  value  of  Xc  <the 
X-tntercept" 
10670      PRINT  "from  the  printed  output  for  the  ray  trace  and  add  one  inch  to" 
10680      PRINT  "that  value.  For  example:  if  the  majority  of  the  Xc  values  liste 
d" 

10690      PRINT  "have  values  around  5.6,  then  key  in  6.6    and  PRESS  CONT. " 
10700  Rayl: INPUT  "WHAT  IS  THE  VALUE  OF  Xmax  (DEFAULT  VALUE  IS  10.0  INCHES  >  ''".X 
•ax 

10710        IF  Xmax<=Xmin  THEN  BEEP 

10720        IF  XmaxOXmin  THEN  DISP  "Xmax  MUST  BE  >  Xmin  =  0.  PLEASE  RE-ENTER 
Xaax. * 

10730        IF  Xmax<=Xmin  THEN  WAIT  2500 
10740        IF  Xmax<=Xmin  THEN  Rayl 

10750  Ray  scale:  LOCATE  15,130,25,100  !  ALL  UNITS  IN  GDU'S 

10760  GOSUB  Same 

10770   !  SCALE  Xmi n-. 5*Xfudge, Xmax*. 5*ABS<Yt i c >, -Y_bul 1 et-. 25*ABS(Yt i c >  , 

Y_bull«tf.25*ABS<Ytic> 

10780  SCALE  Xmin-.5*ABS<Ytic>,Xmax+.5*ABS<Ytic),-Y  bul 1 et -. 25*ABS< Yt i 

c),Y  bullet*. 25*ABS<Ytic> 

10790    !  CLIP  Xmi n-.5*Xfudge, Xmax*. 5*ABS< Yt i c > , -Y  bull et-. 25*ABSC Yt i c >  , 

Y_bu1 let*.25»ABS<Ytic> 

10800  CLIP  Xmin-.8*ABS<Ytic>,Xmax+.5*ABS<Yt ic),-Y  bul 1 et-. 25*ABS< Yt i 

c>,Y_bullet*.25*A8S<Ytic) 
10810  GOSUB  Same  axes 

10820  CLIP  Xmin, 100, -Y  bullet, Y  bullet 

10830  SUBEXIT 

10840  Digit:  LOCATE  0,130,30,100  !  ALL  UNITS  IN  GDU'S 

10850        Xmax=Y_bul let 
10860        Xrains-Xmax 
10870        Xorg»Yorg=*0 
10880        Ymax»l 
10890        Ymin«0 
10900  '         GOSUB  Same 
10910  Digiti_scale:  SCALE  -Y_bul 1 et-. 15*ABS< Yt i c > , Y  bull et *. 15*ABS( Yt i c > , -. 15*AB 
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S<Ytic 

18920 

S(Ytic 

10930 

10948 

10950 

10960 

10970 

10980 

10990 

11000 

11010 
11820 

11030 

11040 
11050 
11060 
11070 
11880 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

♦4*<(T 

11180 

♦4*((T 

11190 

11200 

Ymin.Y 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

n , Mjxx 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

1 

11510 


!  ALL  UNITS  IN  GDU'S 


Same 

Xmi  n,  Xmax+ABS(Xt  i  c  ) ,  Ymi  n,  Ymax+ABS( Yt  i  c  ) 
Xmin,Xmax  +  ABS(Xtic),Ymin,Ymax  +  ABS(Ytic;> 
Same  axes 


), t+. 15*ABS(Yt ic> 

CLIP  -Y_bul let-. 15*ABS(Yt ic>,Y_bul  let  +  . 15*ABS( Yt i c ) , -. 15*AB 
), 1  +  . 15*ABS(Yt ic) 

GOSUB  Same_axes 
SUBEXIT 
Grin:   GOTO  Ray 
Grinc:  LOCATE  13,133,20,101 
Xorg=Yorg=0 
GOSUB  Min_c 
GOSUB  Max_c 
Ymi  n=Cmi  n=Mi  nc 
Ymax=Cmax=Maxc 
GOSUB  Mi  n_r 
GOSUB  Max_r 
Xmax=Maxr 
Xmi  n=Mi  nr 
Grinc_scale!  GOSUB 
SCALE 
CLIP 
GOSUB 
SUBEXIT 
Same:  Lx=LGT(Xmax-Xmi n) 
Ly=LGT<Ymax-Ymin) 
Xf udge=. 20*(Xmax-Xmi  n> 
Yfudge=. 20*(Ymax-Ymi  n) 
Ticmarks:  Testxt i  c=FRACT(Lx)+(Lx<0> 
Testytic=FRACT(Ly>*(Ly<0> 

Xtic  =  10*(INT(Lx>-l)*<l  +  1.5*((T*stxtic>Log2:>  AND  (Test  xt  i  c<Log5)  ) 
estxt i c >=Log5>  AND  (Testxt i c<=Log7> )+6. 5*<Testxt i c >Log7>  ) 

Yt  ic  =  10M INT(Ly)-l)*(l  +  1.5*((Testyt ic>Log2)  RND  (Testyt  ic<Log5) ) 
estyt  i  c  >=Log5)  FIND  (Testyt  i  c<=Log7>  >>6.  5*(Testyt  i  c  >Log7>  ) 

RETURN 
Same_axes:   CALL  Laxes(Xt  i  c  ,  Yt  i  c  ,  Xorg,  Yorg,  Xmaj  ,  Ymaj , Mi  nt  i  cs  i  ze, Xmi  n, Xmax, 
max,  Mi  nn,  flaxx) 

RETURN 
Min  r:  Minr=R(0) 

FOR  1=1  TO  Nray 

Minr=MIN(Minr,R(I>) 
NEXT  I 
RETURN 
Max  r:  Maxr=R(0> 

FOR  1=1  TO  Nray 

Maxr=MAX(Maxr,R(I>> 
NEXT  I 
RETURN 
Min  c:  Mi  nc=C(8> 

FOR  1  =  1  TO  Nray 

Minc=MIN<Minc,C(I)> 
NEXT  I 
RETURN 
Max  c :  Maxc=C(0> 

FOR  1=1  TO  Nray 

Maxc=MAX(Maxc,C(I>> 
NEXT  I 
RETURN 
SUBEND 
SUB  Laxes(Xtic,Ytic,Xorg,Yorg, Xmaj , Ymaj,Minticsize,Xmin,Xmax,Ymin,Ymax,Min 
> 

OPTION  BASE  0 
I 

INTEGER  I, J, Curve, Np,Nn,N,Ns,Nr, REAL  Aneg( *) , Apos ( * ) , A( *> , 21 , 23, Z4 
A1pha,Talpha,Rho,Trho, Rho_i  nitial ,Trhoi ,  Phi ,Tol , Norm, Al pha2 
Nt,N2,N3,Percent_i  mage , Y a, Yb, Aperture, Y_bul 1 et 


COM 
COM 
COM 
i 


COM  INTEGER  Y0_1  oop,Nray,  Add_ray,  Surf_no,  Fl ag.Fl  ag2,  H_i  nc  renter  t .  Hi  t_tota 


COM  INTEGER  L i recount , L i nemax 
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11328 
11338 
11348 
11338 
11568 
11378 
11588 
11598 
11688 
11618 
11628 
11638 
11648 
11638 
11668 
11678 
11688 
11698 
11788 
11718 
11728 
11738 
11748 
11758 
11768 
11778 
11788 
11798 
11888 
11818 
11828 
11838 
11848 
11858 
11868 
11878 
11888 
11898 
11988 
11918 
11928 
11938 
11948 
11958 
11968 
11978 
11988 
11998 
12888 
12818 
12828 
12838 
12848 
12858 
12868 
12878 
12888 
12898 
12188 
12118 
12128 
12138 
12148 
12158 
12168 
12178 
12188 


COM  INTEGER  Pselect.Hpib 
i 

COM  REAL  Nmi n,  Nmax, R0_max 

COM    Ray_trace$, Di git i  ze$, Gr i  n*, G*, Gr i nc*» Plot S, Date* 

COM    X<*), Y<*>,Xc<*),N(*),R<*) 

I 

COM  Rho<*>,Phi  <*),C(*),Y3<*>,Hit<*) 
I 

DEG 

LINE  TYPE  1 
LOIR  0 
LORG  5 

IF  <Xmin>=Xmax>  OR  <Ymin>=Ymax)  THEN  SUBEXIT 
GRAPHICS 

Xfudge*.82*(Xmax-X(!»in) 
Yf udge=. 82*<Ymax-Ymi n) 
Xmaj=l 
Ymaj=l 
Mi  nt  i  csi ze=2 


IF  <Grmc*="Y")  OR  <Grinc*= 
IF  <G*»"Y")  OR  <G*»"y">  THE 
IF  <Digitize*="Y">  OR  <Digi 


y">  THEN  Grinc 
N  Grin 

tize*="y")  THEN  Digit 
IF  <Ray_trace*="Y")  OR  <Ray_trace*="y " )  THEN  Ray 


ABSCXt ic) 
JSING  11928; A 
1968 


Grinc:  LINE  TYPE  3 

GRID  Xtic,Ytic,Xorg,Yorg,Xmaj,Ymaj,2*Mintic3ize 
LINE  TYPE  1 
FRAME 

GOTO  Label  x_gnnc 
Grin:  GOTO  Ray 

!  Digit:  AXES  . 1 , . 1 , 8, 8, 1 , 1 , 2 
Digit:  AXES  Xt i c, . 1 , 8, 8,  1 ,  1 , 2 

GOTO  Label x_d 
Ray:  AXES  Xt i c  ,  Yt i c  ,  Xorg,  Yorg, Xmaj , Yrnaj , Mi nt i cs i ze 
Labelx:  LDIR  98 
LORG  8 

FOR  A»Xorg  TO  Xmax  STEP 
MOVE  A, Yorg-Yfudge 

IF  A=8  THEN  LABEL  US 
IMAGE  »,K 

IF  A»8  THEN  GOTO  11« 
LABEL  USING  U9S8;A 
IMAGE  DDB.D.K 
NEXT  A 
Labely:  LDIR  8 
LORG  8 

FOR  A»-Y  bullet  TO  Y  bullet  STEP  ABS<Ytic> 
MOVE  Xorg-Xfudge,A~ 
IF  A»8  THEN  LABEL  US 
IF  A»8  THEN  GOTO  12« 
LABEL  USING  11958; A 
NEXT  A 
GOTO  Label_ 
l 

Labelx  d:  LDIR  98 
LORG  8 
!         FOR  A»-Y  bul let  TO  Y 
FOR  A»-Y_bullet  TO  y]_ 
MOVE  A7Yorg-Yfudge~ 
IF  A»8  THEN  LABEL 
IF  A»8  THEN  GOTO 
LABEL  USING  119S8;A 
NEXT  A 
Labely  d:  LDIR  8 
LORG  8 
FOR  A*8  TO  Ymax  STEP 


JSING    U928;A 
2840 


bul let    STEP    . 1 

bul let    STEP    ABS<Xt ic) 

USING    11928;A 
12158 
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12196 
12200 
12218 
12228 
12238 
12248 
12238 
12268 
12270 
12288 
12298 
12388 
12318 
12320 
12338 
12348 
12330 
12368 
12378 
12388 
12398 
12408 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12300 
12310 
12320 
12330 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12810 
12820 
12830 
12840 


MOVE  Xorg-X fudge, A 

IF  A=8  THEN  LftBEL  USING  11920; A 
IF  A=0  THEN  GOTO  12238 
LABEL  USING  U958;A 
NEXT  A 
GOTO  Labe1_ 
I 

Label x_gri nc  :  LDIR  98 
LORG  8 

FOR  A=»Xorg  TO  Xmax+ABS  (  Xt  l  c  )  STEP  ABS(Xtic) 
MOVE  A, Yorg-Yfudge 
LABEL  USING  12318;A 
IMAGE  tt,K 
NEXT  A 
Label y_gri nc :  LDIR  0 
LORG  8 

FOR  A=Yorg  TO  Ymax+ABS < Yt l c )  STEP  ABS(Ytic) 
MOVE  Xorg-Xfudge, A 
LABEL  USING  12310JA 
NEXT  A 
! 

Label_:  LDIR  8 

LORG  5 

MOVE  -18*Xmax,8 

LABEL  "RESET  CR/LF" 

SETGU 

CSI2E  2.5 

IF    (Grinc**"Y")    OR    (Grinc$="y")    THEN    Grinc_1abel 

IF    (G**"Y">    OR    (G**"y">    THEN    Grin_label 

IF    (Digit ize*="Y">    OR    <Di gi t i ze*="y"  >    THEN    Digit_label 

IF    (Ray_trace*="Y">    OR    (Ray_trace*="y " >    THEN    Ray_label 


Ray  label 


CHANGE  IN  Graph  ALSO 


Centerx*72. 5 
Cent«ry*62. 5 

MOVE  1.5*Centerx,  13 
LABEL  USING  12550;Nray 
IMAGE  "Number  of  Rays  :  ",K 

MOVE  .5*Centerx,9 
LABEL  USING  12580;  Rho_i  ni.t  i  al 
IMAGE  "Incident  Ray  Angle  :  ",3D.DD,"  deg" 

MOVE  .5*Centerx,5 
LABEL  USING  12610;N2 
IMAGE  "n2  :  ".D.DDDDD 

MOVE  1.5*Centerx,9 
LABEL  USING  12640; Aperture 
IMAGE  "Aperture  :  ",D.DDD,"  inch" 

MOVE  Centerx,20 
LABEL  "Distance  Along  the  GLM  Axis  (inches)" 
; 

CSIZE  3 

MOVE  .5*Centerx, 13 
LABEL  USING  12710;Curve 
IMAGE  "Curve  Number  :  ",K 
LDIR  90 

MOVE  1.5,Centery 
LABEL  "Radial  Distance  From  the  Axis  (inches)" 
LDIR  0 

CSIZE  15/4.54 
GOTO  Label _end 
I 

Digi t_label :  Centerx*65 
Centery»65 

MOVE  1.5*Centerx, 13 
LABEL  USING  12550;Nray 

MOVE    .3*Centerx,9 
LABEL    USING    12850;Hit    total 
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12858 
12868 
12878 
12388 
12898 
12988 
12918 
12928 
12938 
12948 
12958 
12968 
12978 
12988 
12998 
13888 
13818 
13828 
13838 
13848 
13858 
13868 
13878 
13888 
13898 
13188 
13118 
13128 
13138 
13148 
13158 
13168 
13178 
13188 
13198 
13288 
13218 
13228 
13238 
13248 
13258 
13268 
13278 
13288 
13298 
13388 
13318 
13328 
13338 
13348 
13358 
13368 
13378 
13388 
13398 
13488 
13418 
13428 
13438 
13448 
13458 
13468 
13478 
13488 
13498 
13588 
1 


,3D.DD 


IMAGE  "Number  of  Hits  on  the  Image  Plane 

MOVE  i.5*Centerx,9 
LABEL  USING  1 2880: Perc ent_i mage 
IMAGE  "'<    of  Ravs  to  Image  Plane 

MOVE  1.5*Centerx,5 
LABEL  USING  12918;23 
IMAGE  "Image  Plane  :  ".DDD.DD,"  inches" 

MOVE  .5*Centerx,5 
LABEL  USING  1 2948; N_i ncrement 
IMAGE  "Number  of  Increments  [0,1 


",K 


U 


,K 


CSIZE  3 

MOVE  Centerx,28 
LABEL  "Normalized  Number  of  Hits   us   Distance  from  the  Axis' 

MOVE  . 5*Centerx,  13 
LABEL  USING  12710;Curue 


IMAGE  "Curve  Number 
GOTO  Label  end 


,K 


Gnn_label:  Centerx=72.5 
Centery=62. 5 
CSIZE    2.5 

MOVE  .5*Centerx, 13 
LABEL  USING  13898;N1 
IMAGE  "nl  :  ".DD.DDDDD 

MOVE  .5*Centerx,9 
LABEL  USING  13128;N3 
IMAGE  "n3  :  ".DD.DDDDD 

MOVE  l.5*Centerx, 13 
LABEL  USING  13158;Alpha 
IMAGE  "Alpha  :  ",DD.DD,"  degrees" 

MOVE  1.5*Centerx,9 
LABEL  USING  13180; Nr ay 
IMAGE  "Number  of  Rays.  :  ",K 
CSIZE  3 

MOVE  Centerx,28 
LABEL  "GRIN  TRACE" 
LDIR  98 

MOVE    t.5,Centery 
LABEL    "Radial     Distance    From    the    Axis 
GOTO   Label    end 


<  i  nches  ) ' 


Grinc_label:  CSIZE  3 
LORG  5 
LDIR  8 
Centerx=74 
Centery«64 

MOVE  Centerx,5 
LABEL  "Radius  From  the  Origin  (inches)" 
LDIR  98 

MOVE  1.5,Centery 
LABEL  "Gradient  Index  Constant  :  CO)  (inches)' 


Label  end:  CSIZE  15/4 
LDIR  98 
LORG  5 
SETUU 
SUBEND 
SUB  Xlpos<X,Y> 
OPTION  BASE  8 


54 


COM 

COM 

COM 

l 

COM 


ION  BASE  8 

INTEGER  I, J, Curve, Np,Nn,N,Ns,Nr, REAL  Aneg< *)  ,  Apos< *) , A< *) . Zl , Z3, Z4 
Alpha,Talpha,Pho,Trho,  Rho_i  ni  tial  ,Trhoi  ,  Phi  ,Tol ,Norm,Alpha2 
N 1, N2, N3, Perc en t_i mage, Ya7vb, Aperture, Y_bul let 

INTEGER  Y8_l oop, Nray , Add_ray , Surf_no, Fl ag, Fl ag2, N_i  ncrement, Hit  _tota 
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13510 

13520 

13530 

13540 

13550 

13560 

13570 

13580 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13680 

1 

13690 

13700 

13710 

13720 

13730 

13740 

13750 

13760 

13770 

13780 

13790 

13800 

13810 

13820 

13830 

13840 

13850 

'13860 

13870 

13880 

1 

13890 

13900 

13910 

13920 

13930 

13940 

13950 

13960 

13970 

13980 

13990 

14000 

14010 

14820 

14030 

14040 

14050 

14060 

14070 

14080 

14090 

14100 

14110 

14120 

14130 

14140 

14150 


DEC 

DEF  FNYl<Y>=Y*Talpha>'<Talpha-Trho)   !  FINDS  THE  Y-VRLUE  OF  THE  INTERCEPT 

'  OF  THE  RAY  AND  THE  FIRST  SURFACE 
DEF  FNXKYJ-Y/Talpha    !  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 

!  AND  THE  FIRST  SURFACE 
IF  Surf_no=»2  THEN  Uoops 
Y-FNYKY) 
Uoops:X  =  FNXKY) 

SUBEND 
SUB  Xlneg<X,Y> 
OPTION  BASE  0 
j 

COM  INTEGER  I ,  J  ,  Curve  ,  Np,  Nn  ,  N,  Ns,  Nr  ,  REAL  Aneg<  *  )  r  Apos'<  *  ) ,  A<  *>  ,  2 1 ,  23,  Z4 
COM  Alpha,Talpha,Rho,Trho,  Rho_i  ni  t  i  al  ,  Trhoj  ,.Ph  i  ,Tol,Norm,A1pha2 
COM  Nl ,  N2|  No,  Percent_i  mage,  Ya,  Yb,  Aperture,- Y^bul  1  et  . 

COM  INTEGER  Y9_l oop, Nr  ay , Add_ray , Surf  no ,  Flag,Flag2,N_increment,Hit_tota 

i 
DEC 

Al phan«-l*Al pha 
Tal phan  =  TAN<Al  phan) 
DEF  FNYKY)=Y*Talphan/<Talphan-Trho>   !  FINDS  THE  Y-VALUE  OF  THE  INTERCEPT 

!  OF  THE  RAY  AND  THE  FIRST  SURFACE 
DEF  FNXKY>-Y/Talphan   !  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 

!  AND  THE  FIRST  SURFACE 
IF  Surf_no*2  THEN  Uoops 
Y-FNYKY)" 
Hoops:  X*FNXKY) 
SUBEND 

SUB  Dialogue 
OPTION  BASE  0 
! 

COM  INTEGER  I , J, Curve, Np, Nn, N, Ns, Nr , REAL  Aneg<* ) , Apos<*> , A<*> , 21 , 23, 24 
COM  Alpha, Talph a, Rho,Trho,Rho_ initial, Trhoi,  Phi, Tol , Norm, Alpha2 
COM  N 1, N2, N3, Per c en t_i mage, Ya, Yb, Aperture, Y_bul let 

COM  INTEGER  Y0_1 oop, Nray, Add_ray, Surf_no, F1 ag, Fl ag2, N_i  ncrement , Hi  t_t ot a 

COM  INTEGER  Li necount , Li nemax 

COM  INTEGER  Pselect.Hpib 

! 

COM  REAL  Nmin, Nmax, R0_max 

COM  Ray_trace*, Di  gi  t  i  zeS, Gr i  n$, G*, Gr i  nc*, PI ot*, Dat e* 

COM  X<*>,Y<*>,Xc<*>,N<*>,R<*> 

! 

COM  Rho<*>,Phi  <»),C<»),Y3<*>,H1t<*> 
i 

DEG 

Initialize  top:Alpha=21 

Talpha-TAN<Alpha) 

Rho_i  ni  t  i  al =0 

Trho_i-TAN<Rho_ini  t  i  al ) 

! 

Tol«. 00001 

23-24-50 

N1-N3-1 

N2-1.5 

i 

Nray-10   !  IN  ORDER  TO  OUTLINE  THE  APERTURE  AN  EXTRA  RAY 

Add  ray=0   !  MUST  BE  ADDED  IF  Ya  i  0 

Y»»0 

Yb»Y_bul Jet 

Ap«rt?ure-Ya-Yb 

! 

Y    bul let=l. 1 


200 


14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 

14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
143S0 


N_increment=l00 
|~ 

Li  necount »0 
L i nemax=46 
j 

Nmax*4 

Nmi n*2 

Ym2=<1.05*Y  bullet/2>~2    !  THE  1.05  IS  A  FUDGE  FACTOR  TO 
Xm2»<1.05*Y_bullet/(2*Talpha))-^2  !  PREVENT  THE  RADIUS  FROM 

R0_max»SQR(Xm2+Ym2>   !  BECOMING  TOO  SMALL  AND  CAUSING  A 

!  NUMERICAL  ERROR  IN  THE  INDEX  SUBROUTINES 

Pselect=7 
Hpib=5 


Gri  n$»"C" 

G*="N" 

Grinc*»"N" 

Plot**"C" 

Di  gi t  i  2e$a"N" 

Dates*"" 
14360  REM   ***  TEMP  *** 
14370    GOTO  Alpha 
14380  REM   ***  TEMP  *** 

14390  Begin:  PRINT  PAGE,"    The  following  drawing  illustrates  the  optical  proble 
m" 
14400 


c 
14410 

<GLM>. 
14420 
s" 

14430 
ri abl es 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
1  used" 
14510 
14520 
14530 
14540 
14550 
14560 

is  " 
14570 
n" 

14580 
obi  em.  " 
14590 
14600 
will  " 
14610 
14620 


PRINT  "which  this  program  attempts  to  solve;  focousing  monochromati 

PRINT  "light  rays  through  a  conical  lens  for  a  Gun-Launched-Mi ssi 1 e 

PRINT  "    The  picture  is  also  labeled  showing  the  various  quant i t l e 

PRINT  "Pleas*  study  the  picture  and  become  familiar  with  it.  The  va 

PRINT  "will  be  explained  as  they  appear  in  the  program." 

PRINT  LIN<2>, "PRESS  CONT" 

PAUSE 

CALL  Picture 

PRINT  PAGE,"    Zl  is  the  intercept  of  the  second  surface  and  the" 

PRINT  "the  GLM-axis.  Therefore,  the  value  of  Zl  is  APOSC0)." 

PRINT  LIN< 1 ; , "NOTE:  Apos<0>  is  the  constant  term  in  the  polynomia 

PRINT  "       to  describe  the  second  surface  of  the  lens  in  the  " 

PRINT  "       upper  half-plane." 

PRINT  "    The  ■nun, max)  values  of  Zl  are  C0,  infinity]  inches." 

PRINT  LIN<2>, "PRESS  CONT" 

PAUSE 

PRINT  PAGE,"    There  are  two  planes  used  as  image  planes.  The  first 

PRINT  "located  at  X=Z3  (default  value  *  "; Z3; " i nches) .  This  locatio 

PRINT  "is  programmable,  according  to  the  needs  of  the  particular  pr 

PRINT  "You  key  in  the  new  location  when  locating  the  position  of  " 

PRINT  "maximum  ray  density,  or  when  a  new  run  is  begun.  Directions 


PRINT  "be  provided  at  the  appropriate  time." 

PRINT  LINO),"    The  second  image  plane  is  permanent,  located  at  :■•> 
24  ■  "; 24;  "inches.  " 

14630         PRINT  LIN<2>, "PRESS  CONT" 
14640         PAUSE 
14650         PRINT  PAGE,"    This  program  will  trace  mochromatic  light  rays  which 

arr i  ve" 
14660        PRINT  "at  the  first  surface  parallel  or  at  an  angle  to  the  GLM  axis 


14670 
rt    " 


PRINT    "Non-axial    ravs    approach    the    GLM    from    'above',     for    all    rays    a 
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14680  PRINT  "initiated  in  the  upper  half  of  the  meridian  plane." 

14690  PRINT  LIN(2), "PRESS  CONT" 

14700  PAUSE 

14710  PRINT  PAGE,"    The  program  uses  Snell's  Law  without  approximation." 

14720  PRINT  "The  appropriate  variables  are:" 

14730  PRINT  LIN<1>,"      1)  Norm  =   dY'dX  =   slope  of  the  normal  to  the  s 

urface"  . 

14740  PRINT  "      2>  Thetai  *  angle  of  incidence  with  respect  to  the  surf 

ace  normal . " 

14750  PRINT  "      3)  Thetar  =  angle  of  refraction  with  respect  to  the  sur 

face  normal . " 

14760  PRINT  "      4)  Rho  ■  angle  of  the  ray  with  respect  to  the  GLM-axis" 

14770  PRINT  "               (subscripts  indicate  the  region  the  r av  is  in) 

m 

14780         PRINT  LIN(2), "PRESS  CONT" 

14790         PAUSE 

14800   PRINT  PAGE, "The  sign  convention  i3  :" 

14810   PRINT  LIN<1>,"       I)  the  origin  is  placed  at  the  vertex  of  the  first  su 

rf ace. " 

14820   PRINT  "       2)  distances:  (a)  positive  to  the  right  of  the  origin." 

14830   PRINT  "  (b)  positive  above  the  origin  (Y-axis)." 

14840   PRINT  "  <c>  positive  out  of  the  meridian  plane  (screen 

>.  " 

14850   PRINT  "  <ie.  a  right  hand  system.)" 

14860   PRINT  "       3)  angles:  slope  *  Alpha2  is  POSITIVE  for  countei — clockwise" 

14870   PRINT  "  rotation  from  the  GLM-axis  to  the  ray" 

14880   PRINT  "       4)  symbols:  unprimed  =  object  space." 

14890   PRINT  "  primed  ■  image  space." 

14900   PRINT  LIN(2), "PRESS  CONT" 

14910   PAUSE 

14920  Alpha:PRINT  PAGE,"     Alpha  is  the  angle  of  inclination  of  the  " 

14930        PRINT  "FIRST  surface  with  respect  to  the  GLM-AXIS" 

14940        PRINT  LIN<3),"    The  current  value  of  ALPHA  i s " ; Al pha; "degrees" 

14950        INPUT  "WHAT  IS  THE  NEW  VALUE  OF  ALPHA  ( DEGREES) ?" , A 1 pha 

14960  Index: PRINT  PAGE,"     The  lens  system  is  assumed  to  be  opersting  in  air." 

14970    PRINT  "Therefore  the  first  index  of  refraction  ■  nl=  1.90080" 

14980    PRINT  LINO),"     It  is  assumed  that  nl  <  n2  for  the  homogeneous  and  gra 

dient  cases." 

14990    PRINT  LINO),"    You  are  free    to  choose  any  values  for  n2  and  n3  for  the 

homogeneous  case.  " 
15000    PRINT  LIN(2), "PRESS  CONT" 
15010    PAUSE 
15020    PRINT  PAGE,"    The  program  has  the  capability  to  use  a  gradient  index  of 

refraction  <GRIN)." 
15030    PRINT  "Two  GRIN  subroutines  are  available:" 

15040    PRINT  LINO),"  1)  Parabola  :  the  index  of  region  2  (the  lens)  v 

vlti  " 

15050    PRINT  "  as  a  parabola  from  a  min  at  the  vertex" 

15060    PRINT  "  to  a  maximum  (at  a  radius  specified  by  yo 

u>" 

15070    PRINT  "  then  down  to  a  value  determined  by  the  " 

15080    PRINT  "  top  of  the  GLM" 

15090    PRINT  "  The  equation  is  C  n<r>    =  k  *  r*2  1" 

15100    PRINT  LINO),"  2)  Circle  :  the  index  varies  as  a  circle  whose  c 

enter  is  located" 

15110    PRINT  "  at  a  specified  radius  from  the  origin" 

15120    PRINT  "  The  equation  is  C  n<r>    ■  SQR(  R0_max~2  ♦  r~ 

2  )  ]" 
15130    PRINT  LINO), "The  radius  (for  circle)   has  a  minimum  value  which  is  half 

the  " 
15140    PRINT  "length  of  the  first  surface;  approximately  ";R0_max;"  inches." 
15150    PRINT  LINO),"    You  are  fr«9    to  choose  any  value  for  n3  for  the  GRIN  ca 
se." 

15160    PRINT  LIN(2), "PRESS  CONT" 
15178    PAUSE 
15180  '   G*»"N" 
15190    INPUT  "ARE  YOU  GOING  TO  USE  GRIN  ?  Y/N",G* 
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15203      IF  (G*="N")  OR  (G*="n")  THEN  N2 

15218  PRINT  PAGE,"  Required  data  for  grin  :" 

15220  PRINT  LIN(t),"  1)  Nmin  *  minimum  value  of  the  index  of" 

15230  PRINT  "  of  refraction  (  default  =  ";Nmin;">" 

15240  PRINT  "  2>  Nmax  =  maximum  value  of  the  index  (not  required  for 

circle. >" 

15250  PRINT  M  <  Default  »  ";Nmax;">" 

15260  PRINT  "  3)  R0  max  ■  radius  from  the  origin  at  which  the  maximum 


15360 

PRINT  L 

Of  " 

15370 

PRINT  " 

15380 

PRINT  " 

15390 

PRINT  " 

15400 

PRINT  " 

ng" 

15410 

PRINT  " 

15420 

PRINT  L 

15430 

PAUSE 

15270    PRINT  "  value  of  the  index  occurs.  (  MINIMUM  =  " ; R0 

_raax; ■>" 

15280    INPUT  "WHICH  ONE  :  CIRCLE  (C)  OR  PARABOLA  (P)  C  DEFAULT  =  C  )  ?  C/P",Gri 

n* 

15290    INPUT  "WHAT  IS  Nmin  ?",Nmin 

15300      IF  <Grin*="C")  OR  (Grm**"c")  THEN  N3 

15310    INPUT  "WHAT  IS  Nmax  ?",Nmax 

15320    INPUT  "WHAT  IS  R0_max  ^",R0_max 

15338  N2: INPUT  "WHAT  IS  n2  ?",N2 

15340  N3: INPUT  "WHAT  IS  n3  ?",N3 

15358       IF  (G*="N")  OR  (G*="n")  THEN  Rho_initial 

PRINT  LIN<2) , "NOTE:  When  the  parameter  data  is  printed,  the  values 

the  index  at  the  first  surface  intercept  will  be  " 
printed  in  the  folowing  manner:" 

n<8>  =  2.3543      n(9)  =  2.3567    n(10)  =  1.9876" 
The  subscript  indicates  the  number  of  the  ray    intercepti 

the  first  surface." 
2>,  "PRESS  CONT" 

15440  Rho_i  ni t i al : PRINT  PAGE,"    The  rays  incident  on  the  first  surface  are  " 

15450  PRINT  "initially  assumed  to  be  parallel  to  the  X-axis.  " 

15460  PRINT  LIN(2>,"    If  you  want  to  trace  rays  which  are  at  an  ang 

U  " 

15470  PRINT  "other  than  zero  (0)  degrees  with  respect  to  the  X-axis, 

H 

15480  PRINT  "then  key  in  the  value  of  the  angle  (in  degrees)  with  " 

15490  PRINT  "respect  to  the  X-axis." 

15500  INPUT  "RHO  ?" , Rho_i ni t i al 

15510  Rho  ini t i al =-l*ABS(Rho  initial) 

13520  Trhoi=TAN(Rho_initial ) 

13530  Y_bullet:  PRINT  PAGE,"    The  GLM  is  assumed  to  be  assumed  to  be  symmetric 

about  the" 

13540  PRINT  "longitudinal  axis.  The  maximum  value  of  the  GLM  radius  is 

■ 

13330  PRINT  "called  Y  bullet  whose  default  value  is  ";Y  bullet;"  inche 

s." 

13360  PRINT  LIN<2>,"    If  your  design  requires  a  different  value,  plea 

s«" 

13370  PRINT  "enter  that  value  now." 

13380  INPUT  "Y  BULLET  (INCHES)  ?",Y  bullet 

13390  Yb"Y_bulTet 

15600  Aperture:  PRINT  PAGE,"    The  aperture  is  the  difference  in  radial  distance 

fro»  the  GLM  axis" 

13610  PRINT  "projected  onto  the  first  surface, into  which  light  is  alio 
ued  to  enter" 

15620  PRINT  "the  GLM  optical  system.  The  parameters  are  :" 

15630  PRINT  LIN(l),"       1)  Ya  :  the  minimum  Y-val ue  of  the  aperture" 

13640  PRINT  "          (default  value  =";Ya;"inch  )" 

13630  PRINT  "       2)  Yb  :  the  maximum  Y-value  of  the  aperture" 

15660  PRINT  "           (default  value  «";Yb;"inch)   and  is  <  Y  bull* 

t.  "  ~  ~ 

13670  INPUT  "WHAT  IS  Ya  (INCHES)  ''".Ya 

15680  INPUT  "WHAT  IS  Yb  (INCHES)  ?"  ,Yb 

13690  .  IF  Ya>«Yb  THEN  BEEP 

13700  IF  Ya>-Yb  THEN  PRINT  "Ya  must  be  <  Yb.  Please  enter  again." 

15710  IF  Ya>*Yb  THEN  GOTO  15670 
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15729  Aperture*Yb-Ya 

15730  IF  Ya<>0  THEN  Add_ray=l 

15740  Nray:  PRINT  PAGE,"    The  program  will  t  rac  e"  ;  Nray ;  "  rays  through  the  syste 
m  usless  " 

15758       PRINT  "you  specify  another  uslu»" 

15760       INPUT  "  How  many  rays  do  you  want  the  program  to  t race?" , Nray 
15770       Nray=INT(ABS<Nray)) 
15780         IF  Nray<l  THEN  Nray=10 
15790         IF  <G*="Y">  OR  <.G*="y")  THEN  Date 

15800  Digitize_:  PRINT  PAGE,"    The  interval  between  <8  <,  Y  <,  ;  " ;  Y_bull  et ;  "  ) 
and  <-" ;  Y_bul  1  et ; "  <.  Y  <_  0)  have  been  divided" 


15810 


15820 

lease  do  so  now. 

15830 

15840 

15850 

15860 


PRINT  " i nto" ; N  1 ncrement ; "  increments  to  determine  ray  density. 
PRINT  LIN<l),"If  you  want  to  change  the  number  of  increments,  p 


PRINT  LIH(2),"The  amximum  number  of  increments  is  1000 

INPUT  "NUMBER  OF  INCREMENTS  ?", N_i ncrement 

N_i  ncrement  =  INT<flBS<N_i ncrement)) 
"*IF  N_i  ncrement  <  1  THEN  N  l  ncrement  =  100 
15870  DatelPRIHT  PAGE 

15880       INPUT  "What  is  today's  date  ?",DateS 
15890  Start:    IF  <G*»"Y")  OR  <G*="y")  THEN  Gymnastics 
15900 
gree  " 
15910 
stem  1" 

15920         PRINT  "If  you  have  not  fit  a  curve  to  your  data,  then  go  to  the  ut i 
litits  " 

15930         PRINT  " 1 ibrary,  tape  two  and  load  REGD.  " 
15940         PRINT  "NOTE  :  1)  Use  printer  code  0  for  a  hard  copy" 

15950         PRINT  "        2)  Invert  the  X  and  Y  values  for  the  positive  branch" 
15960         PRINT  "        3)  Key  in  <Y,-X)  for  the  negative  branch" 
15970         PRINT  LIN< 1 ) , "NOTE  :  The  negative  branch  is  the  second  surface  in 


PRINT  PAGE,"    The  second  surface  must  be  input  as  polynomial  of  de 
PRINT  "16  or  less,  defined  as  a  function  of  Y  C  *=?<.<>>')    for  Cx,y)  sy 


1S980 
15990 
T15  " 
16000 
16010 
16020 


PRINT  " 

PRINT  LINO),  " 


the  lower  half  plane" 
If  this  is  the  case,  then  PRESS  STOP,  then  REWIND 


PRINT  "fit  your  curve  using  the  utilties  library." 
PRINT  LIN<1),"   If  not,  then  PRESS  CONT." 
PAUSE 

16030  Coef  data:PRINT  PAGE  !  THE  FOLLOWING  DATA  ARE  ARRANGED  AS  FOLLOWS: 

16040  !  DATA  CURVE  No. 

!  DATA  NP,NN,N 

!  DATA  APOS  COEFICIENTS  X=f<Y)  FOR  Y>0 
!  DATA  ANEG  COEFICIENTS  X=f<Y)  FOR  Y<0 
•  DATA  Y»F<X)  COEFICIENTS 


16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

16140 

16150 

16160 

16170 

16180 

16190 

16200 

16210 

16220 

16230 

16240 

16250 

16260 

.06104 

16270  '   ! 

06104 


DATA  1    !  CURVE  No.  ONE 

DATA  4,4,4 

DATA  .5003067966, 1. 15219319,3.0138759,-3.4132912, 1.39217781 

DATA  .5003067966,-1. 15219319,3.0138759,3.4132912,  1.39217781 

DATA   -.45216186, 1. 13544007, -. 66358797, . 25054923, -. 034 1 74838 

! 

! 

DATA  2    !  CURVE  No.  10 

DATA  3,3,3 

DATA  1 . 5193756399, 2. 27918152, -2.5230983, 1 . 63047031 

DATA  1.5193756399,-2.27918152,-2.5230983,-1.63047031 

DATA  3. 3554752, -5. 6849365, 2. 959523, -. 4412878 

! 

! 

DATA  3       !  CURVE  No.  U 

DATA  6,6,3 

DATA  2.006223634, .30397, 12.96206,-62. 1508, 125.7966,-114.0765,38 

DATA  2. 006223634, -.30397, 12.96206,62. 1503, 125.7966, 114.0765,38. 
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16280    !         DATA  -11.295773, 13. 13159,-5.328168, .767SQI 

16290  ! 

16300  ! 

16310  DATA  4  !  SURFACE  NR  1  FOR  n2=4,  F=4  INCHES 

16320  DATA  2,2,2 

16330  DATA  . 3184601721 , 2. 7540136449, -. 3649723143 

16340  DATA  . 3184601 721 , -2. 7540136449, -. 3649723143 

16350  DATA  -. 1071362125, . 3341667328, . 02751837981 

16369  ! 

16370  ! 

16380  Explain:  PRINT  "    Since  this  program  is  intended  to  be  used   to  evaluate" 

16390  PRINT  "various  second  surfaces  a  method  of  labeling  the  current" 

16400  PRINT  "design  surface  has  been  incorporated  into  the  algorithm." 

16410  PRINT  "    The  program  will  ask  you  for  a  curve  number.  At  that" 

16420  PRINT  "time,  key  in  any  number  (integer  or  real)  you  uish  to  use" 

16430  PRINT  "identify  the  surface." 

16440  PRINT  LIN(2), "PRESS  CONT" 

16450  PAUSE 

16460  Coef_pos:   PRINT  PAGE, "The  current  values  of  Curve  and  Np  <the  degree" 

16470  PRINT  "of  the  positive  branch  x  =  f(y>     )  are:" 

16480  READ  Curve, Np,Nn, N 

16490  PRINT  LINO),"  Curve  ■  ";Curve 

16500  PRINT  "  Np  »  ";Np 

16510  INPUT  "WHICH  CURVE  ARE  YOU  USING  (CURVE  No.)  ?", Curve 

16520  INPUT  "WHAT  IS  THE  DEGREE  OF  THE  POLYNOMIAL  FOR  THE  POSITIVE  BR 

ANCH  (Np)  ^>",Np 

16530  PRINT  LIN<2) 

16540  Qui ck_I oop_p:  PRINT  "NOTE:  These  are  the  current  values  of  the  positive 

branch  coef i c i ent s: " 

16550  PRINT 

16560  FOR  1*0  TO  Np 

16570  READ  AposO) 

16580  PRINT  USING  I  6590;  I ,  AposO  ) 

16590  IMAGE  "Apos<"4D")  =  ",K 

16600  NEXT  I 

16610  PRINT 

16620    Zl=Apos(0) 

16630    Any*»"NONE" 

16640    INPUT  "ARE  YOU  GOING  TO  CHANGE  ANY  OF  ALL  OF  THE  COEFICIENTS  ?  SOME/'ALL^ 

NONE  ",Any$ 

16650      IF  (Any**"N0NE")  OR  ( Any*="none" )  THEN  None  p 

16660      IF  (Any*="SOME")  OR  ( Any**"some" )  THEN  Some~p 

16670  Al l_p: PRINT 

16630         PRINT  "Please  key  in  the  coeficients,  beginning  with  the  constant:" 

16690         FOR  1*0  TO  Np 

16700  INPUT  "", AposO) 

16710  PRINT  USING  16590;  I ,  AposO  ) 

16720         NEXT  I 

16730  None  p:  PRINT 

16740  Y*»"N" 

16750  INPUT  "DO  YOU  NEED  TO  MAKE  ANY  CORRECTIONS  ?  Y/N",YS 

16760  IF  <Y*»"N")  OR  <Yt="n")  THEN  Coef  neg 

16770  Some  p:  INPUT  "WHAT  IS  THE  NUMBER  OF  THE  COEFICIEINT  ?  (0,1,2,  etc)",Npp 

16780  INPUT  "KEY  IN  THE  CORRECT  VALUE,  THEN  CONT" , Apos(Npp) 

16790  PRINT  USING  16590; Npp, Apos(Npp) 

16800  Y**"Y" 

16810  INPUT  "IS  THAT  ALL",Y* 

16820  IF  <Y*«"y">  OR  <Y*="y")  THEN  Coef  neg 

16830  IF  (Any*»"S0ME">  OR  ( Any*»"some"  )  THEN  Sorae_p 

16840  GOTO  Some_p 

16850  Coef_neg:  PRINT  PAGE, "The  current  values  of  Curve  and  Nn  <the  degree" 

16860  PRINT  "of  the  negative  branch  x  =  ?(-y)     )  are:" 

16870  PRINT  LINO),"  Curve  *  ";Curve 

16888  PRINT  "  Nn  »  " ; Nn 

16890  INPUT  "WHAT  IS  THE  DEGREE  OF  THE  NEGATIVE  BRANCH  POLYNOMIAL  (Nn) 

?",Nn- 
16900  Quick_loop_n:PRINT  LIN(2) , "NOTE:  These  are  the  current  values  of  the  neg 
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At  i  u» 

16910 

16920 

16938 

16940 

16950 

16960 

16978 

16988 

16998 

NONE 

17800 

17010 

17020 

17030 

17040 

17030 

17060 

17070 

17080 

17090 

17100 

17110 

17120 

17130 

17140 

17150 

17160 

17170 

17180 

17190 

17200 

17210 

17220 

17230 

17240 

17230 

17260 

17270 

17280 

17290 

17300 

17310 

17320 

17330 

17340 

17350 

17360 

17370 

17380 

17390 

17400 

17410 

17420 

17430 

17440 

17430 

17460 

17470 

17488 

17498 

17588 

17510 

17520 

17530 

1 

17340 


branch  co*f icients: " 
PRINT 

FOR  1*0  TO  Nn 
READ  Aneg<I) 

PRINT  USING  16950; I,Aneg<I> 
IMAGE  "Aneg<,"4D">  =  ",K 
NEXT  I 
PRINT 
Any** "NONE" 

INPUT  "ARE  YOU  GOING  TO  CHANGE  ANY  OF  ALL  OF  THE  COEFICIENTS  ?  SOME/ALL' 
\Any« 

IF  >;Any**"NONE"  >  OR  < Any**" none " )  THEN  None  n 
IF  <Any*="SOME">  OR  < Any**" some" >  THEN  Some^n 
Al l_n:PRINT 

PRINT  "Please  key  in  the  coeficients,  beginning  with  the  constant:" 
FOR  1*0  TO  Nn 

INPUT  "",Aneg<I> 
PRINT  USING  16950; I,Aneg<I) 
NEXT  I 
None_n:  PRINT 
Y$»"N" 

INPUT  "DO  YOU  NEED  TO  MAKE  ANY  CORRECTIONS  ?  Y.'N",Y* 
IF  <Y**"N")  OR  <Y*="n">  THEN  Gymnastics 
Some  n:  INPUT  "WHAT  IS  THE  NUMBER  OF  THE  COEFICIEINT  ?  (0,1,2,  *tc)",Nnn 
INPUT  "KEY  IN  THE  CORRECT  VALUE,  THEN  COHT" , Aneg<Hnn> 
PRINT  USING  16950;Nnn,Aneg<.Nnn> 
Y*-"Y" 
INPUT  "IS  THAT  ALL",Y* 

IF  <Y**"y" >  OR  <Y*-"y"  >  THEN  Gymnastics 
IF  <Any**"SOME">  OR  < Any**"some" )  THEN  Some_n 
GOTO  Some_n 
Gymnast i cs:SUBEND 
I 
i 

SUB  Char 
FOR  I»0  TO  79 

IF  1=79  THEN  PRINT  CHR*<228> 
IF  I«79  THEN  17280 
PRINT  CHR*<228); 
NEXT  I 
SUBEND 
SUB  X2pos<X2,Y> 
OPTION  BASE  8 

COM  INTEGER  I , J, Curve, Np, Nn, N, Ns, Nr , REAL  Aneg< *)  ,  Apos < *) , AC* > , 21 , 23, 24 
! 

FOR  1*0  TO  Np 

X2*X2*Apos<I>*Y~I 

NEXT  I 
SUBEND 
SUB  X2neg<X2,Y> 

OPTION  BASE  0 

COM  INTEGER  I , J , Curve, Np, Nn, N, Ns, Nr , REAL  Aneg<*>  ,  Apos< *)  ,  A<*> , 21 , 23, 24 

{ 

FOR  1*0  TO  Nn 

X2=X2*Aneg<I>*YM 

NEXT  I 
SUBEND 
SUB  Index  p<X,Y> 

OPTION  BASE  0 

i 

COM  INTEGER  I , J, Curve , Np, Nn, N, Ns, Nr , REAL  AnegC  +  )  ,  Apos< * )  ,  A< * ) , 21 , 23, 24 
COM  A1pha,Talph-a,  Rho,Trho,  Rho_i  nitial  ,Trhoi  ,Phi  ,  Tol  ,Norm,Alpha2 
COM  Nl ,N2,N3,Percent_image, Ya7Yb, Aperture, Y_bu1 let 
I 

COM  INTEGER  Y0_1 oop, Nray , Add_ray , 3urf_no, F1 ag, Fl ag2, N_i ncrement , Hi t_t  ot a 
COM  INTEGER  L l nee ount , L i nemax 
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17550 

17569 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

17730 

17740 

17750 

17760 

1 

17770 

17780 

17790 

17800 

17810 

17820 

17830 

17840 

17850 

17860 

17870 

17880 

17890 

17900 

17910 

17920 

17930 

17940 

17950 

17960 

17970 

17980 

17990 

1 

18000 

18010 

18920 

18039 

18040 

18050 

18060 

18070 

18089 

18090 

18100 

18110 

18120 

18130 

18140 

18150 

18160 

18170 

18180 

18190 


COM  INTEGER  Pselect.Hpib 
; 

COM    REAL    Nidi  n,  Umax,  R0_max 
! 

DEC 

Xm2=.  60-'Tal  pha         !  FROM  y  =  mx  +  b   AND  Ymax  =  1.2 

Ym2=Xm2*Talpha 

IF  R0_max<SQR<;;m2--2  +  Ym2^2>  THEN  Ro_max=SQR< Xm2^2+Ym2"2> 

Radius  =  SQR<X~2  +  Y-s2) 

R2=R0_max~2 

K=<Nmax-Nmi  n)^R2 

B*<Radi  us-R0_max )  ~2 

N2=Nmax+K*B 
SUBEND 
SUB  Index_c<X,  Y> 

OPTION  BASE  0 

i 

COM  INTEGER  I , J , Curve, Np, Nn , N , Ns, Nr , REAL  ftn«g<*> , flpos<*> ,fl<*) , Zl ,  Z3,  Z4 

COM  Alpha,Talpha,Rho,Trho,Rho_  initial,  Tr  hoi, Phi, Tol,N  or  m,Alpha,i: 

COM  Nl , N2, N3, Percent_i mage, Ya, Yb, Aperture, Y_bul let 

; 

COM  INTEGER  Y0_1 oop, Nray , Add_ray, Surf_no,Fl ag.Fl ag2,N_i  ncrement , Hi t_tot a 

COM  INTEGER  Li necount , L i nemax 

COM  INTEGER  Pselect.Hpib 

I 

COM  REAL  Nmi n, Nmax, R0_max 


!  FROM  y=mx  +  b   AND  Ymax  =  1.2 


DEG 

Xm2=. 60/Tal  pha 

Ym2=Xn>2*Talpha 

IF  R0_max<SQR<Xm2~2+Ym2~2>  THEN  Ro_max=SQR<Xm2~2+Ym2~2> 

Radius=SQR<X~2*Y~2> 

A=R0_max'x2 

B»<Radi  us-R0_max)~2 

C2*A-B 

N2=Nmin+SQR<C2> 
SUBEND 
SUB  Density 

OPTION  BASE  0 

l 

COM  INTEGER  I , J, Curve, Np , Nn, N, Ns, Nr , REAL  AnegC *) , Apos < * ) , A< *) , Z 1 , 23, 24 
COM  Alpha,Talpha,Rho,Trho, Rho_i  nitial ,Trhoi ,Phi ,Tol ,Norm,Alphai 
COM  Nl ,N2,N3,Percent_image, Ya, Yb, Aperture, Y_bul let 
I 

COM  INTEGER  Y0_1 oop, Nray, Add_ray, Surf_no, Fl ag,Fl ag2, N_i  ncrement . Hi  t_tot a 

COM  INTEGER  Li necount , Li nemax 
COM  INTEGER  Pselect.Hpib 

COM  REAL  Nmi n, Nmax, R0_max 

COM  Ray  trace*, Di gi t i ze*, Gri n*. G*. Gri nc*. PI ot*, Dat tS 

COM  X<*~,Y<*),Xc<*>,N<*>,R<*> 

j 

COM  Rho<*),Phi  <*),C<*),Y3<*>,Hit<*) 
! 

INTEGER  Inc,K,L,M, Lines 
DEG 

this  routine  computes  the  ray  density  in  one  dimension, 
assumptions: 

1)  the  point  of  maximum  ray  density  has  been  found  via  a 
digitize  statement. 

2)  the  values  of  y3  have  not  been  changed  to  reflect  the 
new  value  of  z3 

'  printer  is  16 

Ini  t  i  al i  ze  :  Nr»-l 
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18288 

18218  Re_draw: 

18228 

18238 

18248 

18258 

18268 

18278 

18288 

18298 

18388  Positive: 

18318 

18320  Negative: 

X2  POS'NEG 

18338 

18348  Same: 

18358 

18368 

18378 

18388  Next  i  : 

18398  Y3_array: 

18488 

18418 

18428 

18438 

18448  Hit_zero: 

18458 

18468 

18478 

18488 

18498 

18588 

18518 

18528 

18538 

18548 

18558  Next  j: 

18568 

18578  Hit  middl 

18588 

18598 

18688 

18618 

18628 

18638 

18648 

18658 

18668 

18678 

18688 

IncXl 

18698  Next_k: 

18788 

18718 

18728  Hit  last: 

18738 

18748 

18758 

18768 

18778 

18788 

18798 

18888 

I 

18818  Next  m: 

18828' 

18338  Normal i ze 


!  ZERO  THE  ARRAY 

!  FIND  THE  No.  OF  HITS  IN  THE 

INTERVAL  C  -Y_BULLET , -Y  BULLET+DELTA/2> 


Ns  =  -3 
FOR  1=1  TO  Nray 
Nr=Nr+3 
Ns=Ns*5 
A*Xc(I> 
X=X<Ns> 
Y=Y(Ns> 
Rho=Rho<Nr> 
Trho=TAN<Rho> 

IF  A<Z1  THEN  Negative 

IF  Rho=8  THEN  Next_i     !  TOTRL  INTERNAL  REFLECTION  AT  X2P0S 
GOTO  Same 

IF  Y<=-Y_bullet  THEN  Next_i    !  Y2=-Y_bullet  =  >THE  RAY  MISSED 

IF  Rho=8  THEN  Next_i     !  TOTAL  INTERNAL  REFLECTION  AT  X2NEG 
Del tay=<Z3-X>*Trho 
Y3=Y+Del t ay 
X<Ns+l>=Z3 
Y<Ns+l)=Y3 
NEXT  I 
J  =  8 

FOR  1=1  TO  Nray 
Y3(J)=Y<5*I-2) 
J  =  J+i 
NEXT  I 

MAT  Hit=ZER<2881> 
Inc=8 

Ylast»-Y_bu1 let 
Del t  a=Y_bul 1 et /N_i ncrement 
Ynext=Yl ast+Del ta'2 
Hit<Inc)=8 
J=8 
FOR  1=1  TO  Nray 

IF  <Xc<IXZl>  AND  <Y3<J>=8>  THEN  Next  j   !  IGNORES  NEGATIVE 

~    !  BRANCH  RAYS 
IF  <Y3<J)>«Ylast>  AND  <Y3<JXYnext)  THEN  Hi  t  <  Inc  >=Hi  t  <  Inc  >  +  1 
J»J+1 
NEXT  I 
e:  !  FIND  THE  No.  OF  HITS  IN  THE  INTERVAL 
!  C-Y_BULLET  +  DELTA/2,  Y_BULLET-DELTA/2> 
FOR  L=l  TO  2*N_1 ncrement-1 
Inc=Inc*l 
Hit<Inc>=8 
Ylast=Ynext 
Ynext=Yl ast+Del ta 
K=8 

FOR  1-1  TO  Nray 

IF  <Xc<IXZl>  AND  <Y3<K>=8>  THEN  Next_k   !  IGNORES 

!  NEGATIVE  BRANCH  RAYS 
IF  <Y3<K>>*Ylast>  AND  < Y3<KX  Ynext )  THEN  Hi  t  <  Inc  )  =Hi  t  < 

K»K*l 
NEXT  I 
NEXT  L 
Inc=2*N  increment  !  FIND  THE  No.  OF  HITS  IN  THE  LAST  INTERVAL 
Hit<Inc~=8         !   CY  8ULLET-DELTA/-2,  Y  BULLET3 
M«8 

Ylast=Y_bul let -De  It  a/2 
Ynext=Y_bul let 
FOR  1=1  TO  Nray 

IF  <Xc<IXZl>  AND  <Y3<M>=8>  THEN  Next  m   !  IGNORES 

7  NEGATIVE  BRANCH  RAYS 
IF  <Y3<M>>=Y1 ast )  AND  < Y3<M)< =Ynext )  THEN  Hi t ( Inc ) =H i t < Inc  )  ♦ 


M=M*1 
NEXT  I 
Hit  total =8 


!  NORMALIZE  THE  No.  OF  HITS  ON  THE 
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18848 
18858 
18868 
18878 
18888 
18898 
18988 
18918 
18928 
18938 
18948 
18938 
18968 
18978 
18988 
18998 
19888 
19818 
19828 
19838 
19848 
19658 
19868 
19878 
19888 
19898 
19188 
19118 
19128 
19138 
19148 
19158 
19168 
19178 
19188 
19198 
19288 
19218 
19228 
19238 
19248 
19258 
19268 
19278 
19288 
19298 
19388 
19318 
19328 
19338 
19348 
19358 
19368 
19378 
19388 
19398 
19488 
19418 
19428 
19438 
19448 
19458 
19468 
19478 
19488 
19498 
19588 


5C  OF  RAYS  THAT  ARRIVE  AT  THE 

IMAGE  PLANE 

PLOT  AND  LABEL  THE  AXES 

!  DRAM  THE  HISTOGRAM 
C-Y_BULLET,  -Y_BULLET+DELTA/2 > 


FOR  1*8  TO  2*N_increw«nt       !  IMAGE  PLANE  <23)  TO  THE  TOTAL 

Hit  total=Hi  t_total  -t-Hi  t<  I)  !  No.  OF  HITS 
NEXT  T 

i 

IF  Hit_total=0  THEN  None 
FOR  1=8  TO  2*N_i ncrement 

Hll<X>"Hit(l7«'Hit  total 
NEXT  I 
None:       Pct=Hi t_tot al 'Nray 

Percent_image=Pct*100 
Graph:    CALL  Plot" 

IF  Hit_total=0  THEN  Label_ 
First_bar:  XI ast=-Y_bull et 

Xnext=X1ast+Del ta'2   !  INTERVAL 
lnc=0 

IF  Hit<Inc>=0  THEN  Middle_bars 
CLIP  Xlast ,Xnext ,8, Hi t ( Inc)~ 
FRAME 
GOSUB  Del'. 
Middle_bars:  FOR  1=1  TO  2*N_i ncrement -1     !  INTERVAL 

Inc»Inc+l  !  C-Y_BULLET+DELTA/2,  Y_BULLET-DELTA/2 ) 

XI ast*Xnext 
Xnext»Xl ast+Del t a 

IF  Hit<lnc>=0  THEN  Next_i_m 
CLIP  Xlast,Xnext,8,Hit<Inc>~ 
FRAME 
GOSUB  Delt 
Next  in:     NEXT  I 

Last'bar:  Inc=2*N_i ncrement   !  INTERVAL  C Y_BULLET-DELTA/2,  Y_BULLET] 
Xlast*Y_bul 1et-Delta/2 
Xnext*Y~bul let 

IF  Hit<Inc>=8  THEN  Label_ 
CLIP  Xlast,Xnext,8,Hit<Inc) 
FRAME 

GOSUB  Delt 
Label  :  LDIR  8 
LORG  2 
SETGU 
MOVE  2,2 
CSIZE  2.5 

LABEL  "PRESS  CONT" 
SETUU 
CSIZE  15^4.54 
BEEP 

WAIT  258 
BEEP 
PAUSE 

EXIT  GRAPHICS 
SUBEXIT 
Delt:  Lines=i8 

Del t«<Xnext-X1ast > /Lines 
X=Xlast-Delt 
FOR  J*l  TO  Lines 
X-X+Delt 
MOVE  X,8 
DRAW  X,Hit<Inc> 
NEXT  J 
RETURN 
SUBEND 
SUB  Picture 
Scale_:  GCLEAR 

PLOTTER  IS  13, "GRAPHICS- 
GRAPHICS 

LIMIT  8, 184,8, 140 
SCALE  -28, 152.4,-55,55 
AXES  5,5,8,0, 18, 10 
Label_:  MOVE  28,45 
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19510 

LABEL  "THE  PROBLEM" 

1932a 

MOVE  20,44 

19538 

DRAW  50,44 

19540 

Draw  body:  MOVE  0,3 

19550 

DRAW  74,30 

19560 

DRAW  184,30 

19570 

MOVE  0,O 

19530 

DRAW  74,-30 

19590 

DRAW  184,-30 

19600 

Draw  inlet:  MOVE  70,35 

19610 

DRAM  38,33 

19620 

DRAW  134,38 

19630 

MOVE  70,-35 

19640 

DRAM  80,-38 

19650 

DRAM  184,-33 

19660 

Second  surf.  MOVE  38,8 

19670 

DRAW  35,5 

19680 

DRAW  40,9 

19690 

DRAM  45, 13 

19700 

DRAM  50, 15 

19718 

DRAM  74,30 

19720 

MOVE  30,0 

19730 

DRAW  35,-5 

19740 

DRAW  40,-9 

19750 

DRAW  45,-13 

19760 

DRAW  50,-15 

19770 

DRAW  74,-30 

19780 

Ray:  MOVE  0, 15 

19790 

DRAW  40,  15 

19800 

DRAW  45,  13 

19810 

DRAW  184,-14 

19820 

Image  plane:  MOVE  30,30 

19830 

LINE  TYPE  4 

19840 

DRAW  80,-30 

19858 

Label  picture:  MOVE  65,-50 

19860 

LINE  TYPE  1 

19870 

LABEL  "5/54  GLM" 

19880 

MOVE  85,15 

19890 

LABEL  "IMAGE  PLANE" 

19900 

MOVE  15,2 

19910 

LABEL  "ALPHA" 

19920 

MOVE  18,0 

19930 

DRAW  3,2.5 

19940 

MOVE  5, 18 

19950 

LABEL  "INCIDENT  RAY 

19960 

MOVE  35,2 

19970 

LABEL  "Zl" 

19980 

MOVE  35,2 

19990 

DRAW  30,0 

20000 

MOVE  113,2 

20010 

LABEL  "Xc" 

20020 

MOVE  113,2 

20030 

DRAW  110,0 

28040 

MOVE  82,2 

20050 

LABEL  "Z3" 

20060 

MOVE  82,2 

20070 

DRAW  80,0 

20080 

MOVE  130,3 

20090 

LABEL  "C" 

20100 

MOVE  131.5,1.5 

20110 

LABEL  "L" 

20120 

MOVE  5,-10 

20130 

LABEL  "nl" 

20140 

MOVE  30,-10 

20130 

LABEL  "n2" 

20160  ' 

MOVE  50,-10 

210 


20179 

20180  Finished: 

20190      ! 

20200 

20210 

20220 

20230 

20240 

20250 


LABEL  "n3" 
MOVE  15,-55 
LABEL  "PRESS  CONT" 
BEEP 

WHIT  250 
BEEP 
PAUSE 
EXIT  GRAPHICS 


SUBEND 
20260  SUB  X2p<X,Y> 
20270    OPTION  BASE  0 
20280    ! 
20290 
20300 
20310 
20320 
20330 
20340 
20350 


COM  INTEGER  I , J , Curve, Np , Nn, N, Ns, Nr , REAL  fln«g<*>, flpos<*> , A<*> , Zl , 23, Z4 

i 

DEG 
FOR 


1=0  TO  N 
Y  =  Y+A(I)*YM 
NEXT  I 
SUBEND 
20360  SUB  X2n<X,Y) 
20370    OPTION  BASE  0 
20330    ! 
20390 
20400 
20410 
20420 
20430 
20440 


COM  INTEGER  I , J, Curve , Np, Nn, N, Ns, Nr , REAL  Aneg< * >  ,  Apos< * > , AC O , 21 , Z3 , 24 


DEG 

CALL  X2p<X,Y> 
Y=-1*Y 

SUBEXIT 

20450  SUB  Mir><Xm<*),X,  INTEGER  M> 
20460    OPTION  BASE  0 
20470    ! 
20480 
20490 
20500 
20510 
20520 
20530 
20540 


'    DIM  Xm<M> 
I 

X=Xm<0> 

FOR  1=1  TO  M 

X=Min<X,Xm<I>> 

NEXT  I 
SUBEND 

20550  SUB  Max<Xm<*),X, INTEGER  M) 
20560    OPTION  BASE  0 
20570    ! 
20580 
20590 
2060O 
20610 
20620 
20630 
20640 


!  DIM  Xm<M) 
! 

X=Xm<©> 

FOR  1=1  TO  M 

X=MIN<X,Xm<I>> 
NEXT  I 
SUBEND 
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APPENDIX  C 
POLYNOMIALS  USED  FOR  THE  SECOND  SURFACE 

A.  INTRODUCTION 

The  following  discussion  compares  the  attributes  of  three 
analytic  expressions,  in  polynomial  form,  used  as  second  sur- 
faces for  a  conical  lens.   The  lenses  are  compared  in  terms 
of  the  individual  lens  ability  to  cause  some  or  all  of  the 
incident  light  rays  to  converge  to  a  point.   The  points  of 
ray  convergence  are  referred  to  as  "focal"  points  although 
they  are  not  focal  points  in  the  standard  usage  of  the  term. 
Lens  designers  have  developed  a  system  of  standards  used  as 
figures  of  merit  to  compare  one  lens  to  another.   These 
standards  include  spherical  abberation,  coma,  tilt,  astigma- 
tism and  others.   The  figures  of  merit  have  not  been  calcu- 
lated because  the  three  curves  discussed  in  this  appendix  are 
known  to  be  completely  unsatisfactory  to  use  as  refracting 
surfaces.   The  purpose  of  the  thesis  is  to  discover  which 
properties  of  a  curve  to  investigate  in  order  to  lead  to 
usable  design.   Therefore  an  intuitive  comparison  of  ray 
diagrams,  histograms  of  ray  distributions  and  the  set  of 
basic  design  criteria  described  in  chapter  III  are  the  basis 
for  the  discussion  of  curves  A,  B  and  C  in  this  appendix. 

B.  CURVE  A 

Curve  A,  shown  in  figure  C-l  was  the  first  analytic  ex- 
pression used  as  a  second  surface  to  produce  a  ray  diagram. 
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The  curve  was  calculated  by  otaining  the  data  listed  in 
Table  C-l  from  an  arbitrary  hand  drawn  curve.   These  data 
were  used  as  the  input  to  a  regression  analysis  routine  in 
the  HP-9845B  utilities  library.   Since  TRACE  requires  the 
second  surface  to  be  expressed  as  a  polynomial  function  of 
y,  three  curves  were  fit  to  the  data.   Table  C-II  contains 
the  coefficients  for  each  of  the  polynomials.   The  first 
polynomial  relates  the  radial  distance  from  the  GLM  axis  to 
the  distance  along  the  GLM  axis,  i.e.  radius  =  f  (distance 
along  the  GLM  axis) .   The  remaining  two  are  required  by 
TRACE  for  ray  tracing  and  graphics  purposes.   The  second 
expression  relates  the  distance  along  the  GLM  axis  to  the 
radius  from  the  axis  in  the  upper  half -plane;  i.e.  distance 
along  the  GLM  axis  =  f (radius).   The  third  expression  relates 
the  distance  along  the  GLM  axis  to  the  radius  in  the  lower 
half-plane;  i.e.  distance  along  the  GLM  axis  =  f (-radius). 
All  linear  dimensions  are  in  inches. 
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TABLE  C-X 
DATA  POINTS  FOR  CURVE  A 


y  =  f(x)*  x  =  f(yl*  x  =  f(-6)* 
(Ordinate, Abscissa)   (Ordinate  , Abscissa)   (Ordinate, Abscissa) 

0.500,0.00  0.000,0.500  0.000 ,0.500 

0.600 ,0.069  0.069 ,0.600  -0.069 ,0.600 

0.100,0.12%  0.138, 0.1 '00  -0.133,0.100 

0.800,0.188  0.188,0.800  -0.188,0.800 

0.900,0.238  0.238,0.900  -0.238,0.900 

1.000,0.281  0.281,1.000  -0.281,1.000 

1.500,0.500  0.500,1.500  -0.500,1.500 

2.000,0.731  8.731,2.000  -0.731,2.000 

2.500,0.938  0.938,2.500  -0.938,2.500 

2.900,1.100  1.100,2.900  -1.100,2.900 


* :   For   x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis 
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TABLE  C-II 
POLYNOMIAL  COEFFICIENTS  FOR  CURVE  A 


Coefficient 
Number 
a. 


y  =  fCx)* 


Positive 
Branch 

x  =  f  Cy)  * 


Negative 
Branch 

x  =  f ( -y) * 


-0.45216186 


1.18544007 


-0.66358797 


0.25054923 


-0.034174838 


0.5003067966     0.5003067966 


1.15219319 


3.0138759 


-3.4182912 


1.39217781 


-1.15219319 


3.0138759 


3.4182912 


1.39217781 


* :   For   x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis. 
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A  ray  diagram  using  TRACE,  which  is  shown  in  figure  C-2, 
demonstrates  that  curve  A  has  the  ability  to  focus  some  of 
the  rays  to  a  point  near  the  wall  of  the  GLM  at  a  distance  of 
21.18  inches  along  the  GLM  axis.   Figure  C-3  is  the  histogram 
of  the  ray  distribution  for  figure  C-2  and  shows  a  maximum  at 
1.08  inches.   If  this  distribution  were  rotated  about  the  GLM 
axis,  the  two  dimensional  distribution  would  be  a  set  of 
concentric  rings  centered  on  the  GLM  axis  with  the  most  in- 
tense ring  at  a  radius  of  1.0  8  inches.   Although  this  ray 
pattern  is  unsatisfactory,  the  fact  that  some  rays  converged 
to  a  focus  was  encouraging. 

The  converging  rays  were  coming  from  the  middle  region  of 
the  curve.   The  slope  of  the  middle  region  of  the  curve  is 
slightly  larger  than  the  slope  of  the  first  surface.   The 
slope  of  the  regions  above  and  below  the  middle  region  have 
slopes  which  are  approximately  the  same  as  and  greater  than 
the  slope  of  the  first  surface  respectively.   The  ability  of 
the  middle  region  to  focus  light  rays  suggested  the  existence 
of  a  range  of  slopes  which  would  cause  convergence  of  light 
rays.   The  light  rays  which  intercept  the  second  surface  in 
the  lower  half-plane  are  totally  internally  reflected  because 
of  the  large  angle  of  incidence.   Total  internal  reflection 
occurs  when  Snell's  Law   sin0R  =  (n2/n«)  sin9-.   results  in 
sin  _,  >  1.   The  critical  angle  of  incidence   0^   is  where 

i\  C 

sin0o  =  1   and  any  angle  greater  than   8   results  in  total 

K  C 

internal  reflection.   The  range  appears  to  be  in  a  narrow 
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band  with  the  minimum  value  greater  than  the  value  of  the 
cone  angle,  a.      Since  the  curve  is  concave  with  respect  to 
the  first  surface,  the  next  step  of  the  investigation  was  to 
study  curves  with  the  appropriate  slope  comparable  with  curve 
A  and  regions  concave  and  convex  with  respect  to  the  first 
surface.   These  two  criteria  were  the  basis  for  choosing 
curves  B  and  C  for  further  investigation. 

C.   CURVE  B 

Curve  B,  shown  in  figure  C-4  was  chosen  because  the 
analytical  expression  which  describes  the  curve  exhibits 
regions  similar  to  those  discussed  for  curve  A.   The  shape 
of  curve  B  is  smooth  with  an  inflection  point  providing 
regions  concave  and  convex  with  respect  to  the  first  surface. 
The  data  used  to  generate  the  analytical  expression  for  the 
curve  are  listed  in  Table  C-III.   Three  analytic  expressions 
were  calculated  as  for  curve  A.   The  coefficients  for  the 
three  polynomials  describing  curve  B  are  listed  in  Table  C-IV, 

The  ray  diagram  in  figure  C-5  demonstrates  the  ability 
of  curve  B  to  cause  some  of  the  light  rays  to  converge  to  a 
"focal"  point.   A  ray  diagram  with  an  image  plane  located  at 
the  point  of  maximum  ray  density  is  shown  in  figure  C-6 .   Al- 
though this  ray  distribution  is  not  satisfactory  the  distri- 
bution of  rays  is  relatively  better  than  the  ray  distribution 
for  curve  A  shown  in  figure  C-2. 

The  ray  distribution  of  curve  B  is  better  than  that  for 
curve  A  because  the  point  of  ray  convergence  is  closer  to 
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TABLE  C-III 
DATA  POINTS  FOR  CURVE  B 


y  =  f  (x)*            x  =  f  Cy)*  x  =  f  (-y)* 

(Ordinate, Abscissa)   (Ordinate, Abscissa)  (Ordinate, Abscissa) 

1.500,0.000                           0.000,1.500  0.000,1.500 

1.100,0.015                          0.015,1.100  -0.015,1.100 

1.300,0.200                           0.200,1.900  -0.200,1.300 

2.100,0. 394          0.394,2.100  -0.394,2.100 

2.300,0.569          0.569,2.300  -0.569,2.300 

2.500,0.744           0.744,2.500  -0.744,2.500 

2.700,0.888           0.888,2.700  -0.888,2.700 

2 . 900 , 1 . 000           1 . 000 , 2 . 900  -1 . 000 ,2.900 

*:   For   x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis. 
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TABLE  C-IV 
POLYNOMIAL  COEFFICIENTS  FOR  CURVE  B 


Coefficient 
Number 
a. 


Positive 
Branch. 

y  -  f  Cxi*    x  =  fCyl' 


Negative 
Branch 

x  =  f(-y) 


a. 

i 


3.3554752 


-5.6849365 


1.5193756399    1.5193756399 


2.279198152    -2.279198152 


2.959523     -2.5230983 


-2.5230983 


.3         -0.4412878     1.63047031     -1.63047031 

*:   For  x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis. 
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both  the  lens  and  the  GLM  axis.   The  histogram  for  curve  B  in 
figure  C-7  shows  the  point  of  maximum  ray  density  is  located 
at  a  radius  of  approximately  0 . 2  inch  from  the  GLM  axis .   The 
point  of  maximum  ray  density  for  curve  A  is  at  a  radius  of 
approximately  1.08  inch  from  the.  GLM  axis.   Although  curve  A 
causes  more  of  the  rays  which  strike  the  image  plane  to  focus 
than  curve  3  does,  the  ability  to  achieve  a  short  focal  length 
is  more  desirable  and  therefore  curve  B  is  judged  to  be  better 
than  curve  A.   A  second  factor  which  must  be  taken  into  ac- 
count is  the  fraction  of  rays  transmitted  through  the  lens. 
Curve  A  transmits  84%  (42  of  50)  of  the  incident  rays  through 
the  lens.   Curve  B  transmits  6  8%  (34  of  50)  of  the  light  rays 
through  the  lens.   The  fraction  of  transmitted  rays  could  be 
increased  by  moving  the  second  surface  forward  and  making  the 
lens  thinner. 

The  ray  diagram  and  histogram  for  curve  B  in  figures  C-6 
and  C-7  reveal  the  absence  of  a  large  number  of  rays  in  the 
lower  half -plane  near  the  lens.   Rotating  the  histogram 
about  the  GLM-axis  would  generate  a  set  of  concentric  rings 
with  the  most  intense  at  a  radius  of  0.2  inch  from  the  GLM 
axis. 

Using  the  ray  diagram  and  histogram  for  curve  A  in  fig- 
ures C-2  and  C-3  as  baseline  design  figures  for  the  GLM  lens 
curve  B  is  judged  to  be  the  superior  curve  of  the  two  due  to 
the  capability  of  curve  B  to  cause  light  rays  to  converge  in 
a  region  relatively  close  to  the  lens  and  near  the  GLM  axis. 
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Curve  A  exhibited  one  convex  region  and  one  focal  point. 
The  rays  intercepting  the  second  surface  in  the  lower  half- 
plane  were  totally  internally  reflected  as  they  were  for 
curve  A. 

The  investigation  was  now  directed  to  probe  the  ability 
of  a  convex  surface  to  cause  convergence  of  the  light  rays 
at  a  shorter  distance  along  the  GLM  axis  than  a  concave 
region.   Curve  C  was  chosen  because  the  analytic  expression 
is  a  higher  order  polynomial  with  several  inflection  points. 

D.   CURVE  C 

Curve  C  shown  in  figure  C-8  was  chosen  because  the  higher 
order  polynomial  contains  several  inflection  points.   The 
inflection  points  provide  regions  of  concave  and  convex  sur- 
faces.  If  the  results  for  curve  B  are  valid  then  curve  C 
should  cause  rays  to  converge  to  several  focal  points,  one 
for  each  convex  region.   The  data  points  for  curve  C  listed 
in  Table  C-V  were  obtained  and  the  polynomial  coefficients 
in  Table  C-VI  were  generated  in  the  same  manner  as  for  curve 
A. 

The  ray  diagram  in  figure  C-9  show  two  distinct  areas 
where  rays  exiting  the  lens  from  a  convex  region  converge. 
The  focal  points  possess  the  same  characteristics  as  those 
of  curve  B.   The  focal  points  are  located  in  a  region  close 
to  the  lens  and  are  formed  from  rays  emerging  from  a  convex 
portion  of  the  surface.   Light  rays  refracted  from  concave 

regions  of  the  lens  do  cross  other  light  rays,  but  do  not 
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TABLE  C-V 
DATA  POINTS  FOR  CURVE  C 


y  =  f(x)*            x  =  f(y)*  x  =  f(-y)* 

(Ordinate, Abscissa)  (Ordinate, Abscissa)  (Ordinate, Abscissa) 

2.000,0.00                           0.000,2.000  0.000,2.000 

2.100,0.081           0.081,2.100  -0.081,2.100 

2.200,0.175           0.175,2.200  -0.175,2.200 

2.300,0.244           0.244,2.300  -0.244,2.300 

2.400,0.331          0.331,2.400  -0.331,2.400 

2.500,0.500           0.500,2.500  -0.500,2.500 

2.600,0.600           0.600,2.600  -0.600,2.600 

2.700,0.612           0.612,2.700  -0.612,2.700 

2.800,0.744           0.744,2.800  -0.744,2.800 

2.850,0.8125         0.8125,2.850  -0.8125,2.850 

2.900,1.000           1.000,2.900  -1.000,2.900 

*:   For  x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis. 


230 


TABLE  C-VI 
POLYNOMIAL  COEFFICIENTS  FOR  CURVE  C 


Coefficient 
Number 
a. 


y  =  f (x) 


Positive 

Branch 
x  =  f(y)* 


Negative 

Branch 
x  =  f  (-y)* 


-11.205773     2.0036  22  364     2.003622364 


13.18159 


0.30397 


-5.328168    12.96206 


0.767801   -62.1508 


0.00       125.7966 


0.00      -114.0765 


0.00        38.06104 


-0.30397 
12.96206 
62.1508 
125.7966 
114.0765 
38.06104 


*:   For   x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis. 
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converge  as  a  group  as  do  the  light  rays  from  the  convex 
regions. 

Comparing  the  focal  points  caused  by  curve  C  shown  in 
figures  C-10  and  11  with  figure  C-l  for  curve  A  shows  that 
the  focal  point  caused  by  curve  A  is  located  at  a  point  21.18 
inches  along  the  GLM  axis  and  at  a  radius  of  -1.08  inches 
(21.18,  -  1.08)  inches.   The  focal  points  for  curve  C  are 
positioned  at  approximately  (3.46,  -0.25)  inches  and  (3.25, 
0.54)  inches.   If  the  histogram  in  figure  C-12,  drawn  for 
the  image  plane  in  figure  C-10  was  rotated  about  the  GLM  axis 
a  set  of  concentric  rings  would  be  formed.   The  most  intense 
rings  would  be  located  at  radii  of  0.25,  0.34  and  0.44  inch. 
Rotating  the  histogram  in  figure  C-l 3  drawn  for  the  image 
plane  in  figure  C-ll  would  produce  a  similar  set  of  rings, 
the  most  intense  located  at  radii  of  0.16  and  0.54  inch. 
Comparing  the  number  of  rays  transmitted  reveals  curve  A 
transmits  8  4%  (42  of  50)  of  the  incident  rays  and  curve  C 
transmits  58%  (29  of  50)  of  the  incident  rays.   However, 
since  curve  C  causes  light  rays  to  converge  in  a  region 
closer  to  the  lens  than  does  curve  A,  curve  C  is  judged  to 
be  better  than  curve  A.   Also,  all  but  one  ray  which  inter- 
cepted the  second  surface  of  the  lens  using  curve  C  in  the 
lower  half -plane  experienced  total  internal  reflection  at 
the  second  surface. 
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E.   CONCLUSIONS 

Three  conclusions  are  drawn  from  the  comparison  of  curves 
A,  B  and  C.   First,  a  range  of  slopes  for  the  second  surface 
exists  which  will  enable  the  second  surface  to  refract  light 
to  a  focal  point.   The  ray  diagrams  for  curve  A,  B  and  C 
shown  in  figures  C-2,  C-5  and  C-9  illustrate  this  relation- 
ship as  well  as  the  fact  the  rays  which  intercepted  the 
second  surface  in  the  lower  half-plane  were  almost  all  total- 
ly internally  reflected.   The  relationship  between  the  slopes 
of  the  first  surface   tana   and  the  second  surface   tana 2 
is  shown  in  figure  C-14.   Rays  are  refracted  in  the  region 
where   a 2  >   the  functional  value  for  a  given  index  of  refrac- 
tion; rays  experience  total  internal  reflection  when   a2  < 
the  functional  value  for  a  given  index  of  refraction.   The 
second  conclusion  is  that  a  second  surface  which  is  convex 
with  respect  to  the  first  surface  causes  light  rays  to  con- 
verge in  a  region  much  closer  to  the  lens  than  a  concave  lens. 
The  third  conclusion  is  that  a  single  polynomial  used  to 
describe  the  second  surface  of  a  lens  does  not  satisfactorily 
refract  rays  to  a  focus.   CHART  calculated  surface   D   shown 
in  figure  C-15  for  eleven  rays.   This  is  surface  number  one, 
illustrated  in  figure  17.   A  parabola  was  fitted  to  the  eleven 
points  using  the  HP-9845B  Utilities  Package.   The  fit  appears 
to  be  quite  good,  especially  when  figure  C-15  is  compared  to 
figure  17.   However,  when  50  rays  are  traced  through  the  lens 
the  ray  diagram  in  figure  C-15  is  the  result.   The  associated 
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histogram  in  figure  C-16  shows  the  ray  distribution  on  the 
image  plane  at  the  design  focal  point  of  4.00  inches. 
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APPENDIX  D 
THE  USE  OF  A  GENERAL  BLOCK  OF  MATERIAL  AS  A  LENS 

LCDR  C.L.  Burmaster,  Naval  Postgraduate  School,  suggested 
the  use  of  a  rhombus  shown  in  figure  D-l  as  a  refracting  lens 
because  this  type  of  lens  should  transmit  light  without  aber- 
ration. The  following  discussion  applies  Snell's  Law  to  this 
lens  with  the  following  boundary  conditions: 

1)  Side  ©  is  parallel  to  side  © . 

2)  Side  ©  is  parallel  to  side  ©  and  symmetrical  to 
the  GLM  axis. 

3)  The  ray  in  medium  3  is  parallel  to  the  incident  ray 
in  medium  1. 

4)  the  index  of  refraction  of  the  lens  is  related  to  the 
indices  of  media  1  and  2  in  the  following  manner: 

n,  <  n2   and  n2  >  n~ 

The  incident  ray  in  medium  1  makes  an  angle  of  incidence 
0J  with  n,   the  normal  to  the  first  surface.   The  ray  is 

refracted  into  the  lens  at  an  angle  of  refraction,   9_  with 

1 
respect  to  n,   according  to  the  relation  sin9   = (n,/n2) sin9_ 

Snell's  Law.   The  ray  traverses  the  lens  and  forms  the  angle 

of  incidence   9     with  the  normal  to  surface  4.   The  ray 

14 
is  refracted  according  to   sin9R  =  (n3/n2)sin9_   noting 

4  4 

that  since  surface  ©  is  parallel  to  surface  © ,   n,  is 

parallel  to  n.   and  therefore   9T   =   9_  .   Since  the  ray  in 

4  X4     Rl 

medium  3  is  parallel  to  the  incident  ray  in  medium  1  9   =  9_, 

K4    x 
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and  applying  Snell's  Law  at  surface  number   1 

n2 
sin9_  =   — -  sin8_ 
I    n1  R1 

and  again  at  surface  number   4 

n2 

sin9_   =   —  sin9T 

R4     n3      J4 

therefore  equating  9_   and  9_ 

1l  R4 

^2     ^2 

nl  ~   n3 

therefore  n,  =  n_. 

The  conclusion  for  this  lens  is  that  the  indices  of  refrac- 
tion for  media  1  and  3  must  be  equal.   The  lens  causes  inver- 
sion of  the  image  because  the  rays  are  incident  in  the  upper 
half -plane  and  exit  in  the  lower  half-plane. 

A  more  general  lens  is  shown  in  figure  D-2  which  does  not 
have  boundary  conditions  1)  and  2)  above.   All  other  boundary 
conditions  apply  and  in  addition  the  lens  is  symmetric  about 
the  GLM  axis. 

The  incident  ray  in  medium  1  forms  an  angle  of  incidence 

9_   with  n, ,   the  normal  to  surface  ^  .   The  ray  is  refrac- 

^1         L 
ted  according  to   sin9_  =  (n,/n0) sin9T    and  traverses  the 

medium,  forming  the  angle  of  incidence   9_    with  n  ,   the 

-L4  4 

normal  to  surface  (£)  .   The  ray  is  refracted  into  medium  3 
according  to   sin9_   =  (n0/n0) sin9T    parallel  to  the  incident 
ray  in  medium  1.   Noting  the  angular  relationship  between   fi, 
and  n.   in  figure  D-3  such  that   9^  =  92 +  5  and   5  =  a   -  y, 
then   9.  =  a  -  y  where   a  and  y      are  the  angles  of  sides 
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®  and  @  with  the  GLM  axis,  respectively. 

Now   0, 


R, 


7T 

t  -  y 


TT 


Hence   9   =  j  -  (a  -  y) 
4 

Similarly   9T   =  9D  +  6  =  9n   +  a  -  y 
X4     Rl       Rl 

From  Snell's  Law  applied  at  side  (Q    is 

n2 

sin9_   =   —  sin9_  . 

R/i    n->     l>i 
4      3       4 


Noting  that   9. 


sin9. 


7T 


9R+5,  5  =  a  -  y   and   Y  =  j   9r 

^sin(9    +  a  +  9-1) 
3        1  4 


Simplifying  by  trigonometric  expansions  for  sine  and  cosine 
yields 


tan  9 


R 


n~  +  n2  sin (9   +  a) 
n2cos(9R  +  a)    . 


(D-l) 


with    9_   =   arcsin 
11 


[n7sin6lj  ' 


Equation  (D-l)  is  a  necessary  but  not  sufficient  condition 
for  the  ray  in  medium  3  to  emerge  from  surface  4  parallel  to 
to  the  incident  ray  in  medium  1.   The  final  condition  relates 


the  angles  of  surfaces  (&    and  ®    and 
shown  in  figure  D-3. 


+  6   as 


4 
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Applying  Snell's  Law  at  surface  (?)  and  using  trigonometric 
expansions  yields 


n2  sin(0R  +  a)  -  n- 
\  n2  cos (9     +   a) 


(D-2) 


with   90   =  arcsin 
Rl 


(n~/n, ) sin9T 

1  - 


With  equations  (D-l)  and  (D-2)  rearranged  to  relate  the 


tan(9R  +  a)   as  the  independent  variable  the  equations 

become   tan(9    +  a)  =  - (tan9    +   ^3  J  (D-3) 

1         V     4    n2/ 


and 


n. 


tan(9R  +  a)  =   -  ls(    +  a) 


+  tan6 


(D-4) 


Since  equation  (D-3)  equals  equation  (D-4)  and  solving  for 
tany  yields 


n3        n3 

tany  =   tan9_   +   t-z r  +  — 

R„     cos (9_   +  a)    n~ 
4         R,  2 


(D-5) 


TT 


With  the  condition  that  y  +  9_   =   ~-  and  noting  that 

R4     2 


I,  =  y  -  a,   5-a-y   and   8_ 


R. 


+  6 


R,  =  arcsin 


n 


1   sin  (it  -   a) 


n. 


and 


9    =   arcsin 
R4 


n3 

-i  sin (9    +  a  -  y) 

n2       Rl 
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Equation  (D-5)  is  recognized  as  a  transcendental  equation 
of  the  form 

1   '    '  cos(9   +  a)+  IT      (D~6) 

R-i        2 


|arcsin[nf  sin(9R]L+  a^]j 


which  must  be  solved  iteratively.   The  constraints  on  the 
solution  are  that   (9    +  a)  <   ~-  and 

tin  £ 

(n3/n2)  sin(9R  +  a  +  y)  <  1   and    9R  +  Y  =  j  . 

The  appearance  of  the  configuration  of  this  lens  in 
3-dimensions  would  be  two  cones  fit  base  to  base.   The 
image  formed  would  be  inverted  with  the  center  missing; 
i.e.  an  annulus.   Therefore  a  substantial  amount  of  energy 
could  be  lost  in  the  image  if  the  energy  distribution  of 
the  object  is  Gaussian  with  the  maximum  at  the  center  of 
the  object.   Therefore  equations  (D-l)  and  (D-6)  are  neces- 
sary and  sufficient  conditions  to  insure  the  incident  ray 
in  medium  1  is  parallel  to  the  exit  ray  in  medium  3.   If  the 

condition  that   9n   =   9T    then  the  general  lens  reduces  to 

R2     Xl 
the  rhombus  of  figure  D-l,  or  that  of  a  parallelopiped  in 

figure  D-4.   The  position  a  block  lens  would  occupy  in  the 

GLM  is  shown  in  figure  D-5. 
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APPENDIX  E 
GRADIENT  INDEX  OPTICS 

The  development  of  material  which  exhibits  a  continuous 
change  in  the  optical  index  of  refraction  over  distance  has 
opened  a  new  area  in  the  field  of  optics.   Gradient  index 
CGRIN)  material  has  been  applied  in  the  field  of  fiber  optics 
communications  and  integrated  circuits  with  expanding  numbers 
of  applications.   GRIN  has  the  effect  of  replacing  individual 
lenses  in  an  optical  system.   Theoretically  GRIN  material  has 
the  ability  to  refract  light  because  of  the  continuous  change 
in  index  of  refraction  in  the  medium.   Practically  the  amount 
of  refraction  is  proportional  to  the  change  in  the  relative 
index  from  macroscopic  region  to  macroscopic  region. 

GRIN  material  is  produced  with  one  of  three  types  of 
gradients  in  the  index  of  refraction  referenced  to  the  opti- 
cal axis: 

1.  Axial 

2 .  Cylindrical 

3.  Spherical 

Axial  GRIN  varies  the  index  of  refraction  along  the  optical 
axis.   Cylindrical  GRIN  varies  the  index  of  refraction 
radially  from  the  optical  axis.   Hence,  in  three  dimensions 
the  surfaces  of  constant  index  form  concentric  cylinders 
centered  on  the  optical  axis.   Spherical  GRIN  varies  the 
index  of  refraction  radially  from  the  origin.   The  surfaces 
of  constant  index  form  a  set  of  concentric  spheres  [8]. 
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Born  and  Wolf  [9]  discuss  the  general  properties  of  light 
rays  in  GRIN  material  with  spherical  symmetry.   The  trajec- 
tory of  the  light  ray  is  described  by  Bouguer's  relation, 
ndsincj)  =  constant,  where   <j>   is  the  angle  between  the  posi- 
tion vector  £    and  the  tangent  at  point  P  as  shown  in  figure 
E-l  and  is  illustrated  inside  the  GLM  lens  in  figure  E-2. 
For  two  dimensions  using  polar  coordinates,  the  angle  can 
describe  explicitly  as 

sin4,      =  *W       ,  (E-l) 


v4^Tp 


2    2  2 

where      dr/de      =    (r/c)  yn  r      -  c        ;      0      is   the 

angle   between    two   consecutive   radii   and      c      is   Bouguer's 
constant.      In   three   dimensions   using   spherical   coordinates 
the   relation   for    the   change   in      9,      illustrated   in    figure 
E-3,    over   a  range   of   radius   is   given   by 


dr 

8    -    8,-   c     /        ,  r  (E-2) 

°  /    ,/2    2 2 

J-c  Vn   r      -  c 

o 

Given  a  sphere  of  GRIN  material  shown  in  figure  E-4  with 
a  spherical  gradient,  a  GLM  lens  can  be  selectively  cut  from 
the  material.  The  lens  can  be  customized  with  an  index  of 
refraction  profile  suitable  for  the  application.  A  possible 
profile  for  the  GLM  conical  lens,  is  shown  in  figure  E-5, 
with  a  minimum  and  maximum  located  at  a  specific  radius  from 
the  origin.   Hence  the  ability  to  customize  the  GLM  lens 
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Figure  E-3.   Illustration  of  the  Relationship  Between 

f      and  $  Between  Adjacent  Rays  in  the 
GLM  GRIN  Lens. 
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enables  the  lens  designer  to  place  the  maximum  value  of  the 
index  of  refraction  at  the  desired  location.   The  profile 
shown  in  figure  E-5  can  be  applied  to  the  GLM  conical  lens 
with  the  index  profile  varying  along  the  first  surface  shown 
in  figure  E-6. 

Bouguer '  s  constant,  defined  by  the  relation  nrsincj)  =  c 
is  a  function  of  the  radius,  index  of  refraction  at  that 
radius  and  the  angle   <j>   defined  earlier.   However,  once  the 
ray  enters  the  GRIN  medium,  the  constant  is  invariant  along 
the  ray.   Therefore  the  constant  can  theoretically  be  deter- 
mined explicitly  at  any  point.   Practically,  two  points 
exist   at  which  the  constant  can  be  determined.   These  are 
at  the  intercept  of  the  incident  ray  and  the  first  surface 
and  the  intercept  of  the  ray  in  the  conical  lens  and  the 
second  surface.   The  most  convenient  position  to  calculate 
c   is  the  first  surface  because  n,  r  and  <j>   can  all  be 
determined  explicitly  on  the  first  surface.   Table  E-I  is 
a  tabulation  of  values  of  Bouguer ' s  constant  c.   Figure  E-7 
shows  the  relationship  between  the  constant  c  and  the 
radius  from  the  origin  along  the  first  surface  of  the  GLM. 

Calculating  the  ray  paths  through  a  conical  lens  composed 
of  GRIN  material  must  be  accomplished  by  solving  equation 
(E-2)  at  each  point  in  the  lens.   A  complete  algorithm  was 
not  written  because  of  the  time  constraints,  but  TRACE  can 
calculate  the  value  of  Bouguer' s  constant  and  refract  the  ray 
at  the  first  surface  shown  in  figure  E-8  using  the  value  of 
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TABLE  E-I 
BOUGUER'S  GRIN  CONSTANT 


n<I)  r<I)  Phi(I)  SiruPhO  cl> 


1 

2.4406 

.0614 

67.5096 

.9239 

.  1384 

2 

2.6179 

.  1223 

69.0997 

.9342 

.  J  002 

3 

2.7481 

.  1342 

70. 1402 

.  9405 

.  4760 

4 

2.8551 

.2456 

70.9137 

.  9450 

.6625 

5 

2.9461 

.  3069 

71.5251 

.9485 

.  S577 

6 

3.0254 

.3633 

72.0263 

.9512 

1 . 0600 

•7 

3.8956 

.4297 

72.4472 

.9534 

1 . 2683 

8 

3.  1583 

.491  1 

72.3067 

.9553 

1.4313 

9 

3.2147 

.5525 

73. 1174 

.9569 

1 . 6996 

10 

3.2656 

.6139 

73.3832 

.9583 

1 . 3210 

11 

3.3116 

.6753 

73.6258 

.  9594 

2. 1456 

12 

3.3534 

.7367 

73.8352 

.  9605 

2 . 5727 

13 

3.3911 

.7981 

74.0200 

.9614 

2. 6017 

14 

3.4252 

.3595 

74. 1334 

.9621 

2. 3  224 

15 

3.4560 

.  9203 

74.3277 

.  9623 

3.0641 

16 

3.4835 

.9822 

74.4549 

.9634 

3.2965 

17 

3.5081 

1.0436 

74.5664 

.  9639 

3. 5291 

13 

3.5298 

1. 1050 

74.6637 

.  9644 

3.7616 

19 

3.5488 

1. 1664 

74.7477 

.  9648 

3.9935 

20 

3.5651 

1.2278 

74.8193 

.9651 

4.2245 

21 

3.5739 

1.2392 

74.8792 

.9654 

4. 4541 

22 

3.5902 

1.3506 

74.9279 

.  9656 

4. 6320 

23 

3.5991 

1.4120 

74.9659 

.9653 

4 . 9073 

24 

3.6055 

1.4733 

74.9935 

.9659 

5 . 1310 

25 

3.6096 

1.5347 

75.0109 

.9660 

5. 3514 

26 

3. 6114 

1.5961 

75.0134 

.  9660 

C   0  £  A  ■-. 

j  •  DO o i 

27 

3.6103 

1.6575 

75.0159 

.  9660 

5.7315 

28 

3.6079 

1.7189 

75.0034 

.9659 

5. 9904 

29 

3.6026 

1.7303 

74.9309 

.  9658 

6. 1946 

30 

3.5949 

1.8417 

74.9432 

.9657 

6. 3936 

31 

3.5849 

1.9031 

74.9049 

.9655 

6. 5369 

32 

3.5723 

1.9645 

74.3506 

.9652 

6.7733 

33 

3.5573 

2.0259 

74.7850 

.9649 

6. 9539 

34 

3.5396 

2.0872 

74.7073 

.9646 

7. 1265 

35 

3.5193 

2.  1486 

74.6163 

.9642 

7.2903 

36 

3.4962 

2.2100 

74.5125 

.9637 

7.4461 

37 

3.4701 

2.2714 

74.3933 

.9631 

7.5915 

38 

3.4410 

2.3323 

74.2573 

.9625 

7. 7261 

39 

3.4086 

2.3942 

74.1042 

.9618 

7.3433 

40 

3.3727 

2.4556 

73.9304 

.9609 

7.9533 

41 

3.3330 

2.5170 

73.7338 

.9600 

3.0533 

42 

3.2392 

2.5734 

73.5108 

.9589 

3.1319 

43 

3.2408 

2.6397 

73.2573 

.9576 

3. 1921 

44 

3. 1872 

2.7011 

72.9675 

.9561 

3.2315 

45 

3. 1273 

2.7625 

72.6337 

.  9544 

3 . 2467 

46 

3.0615 

2.3239 

72.2454 

.9524 

8.2337 

47 

2.9870 

2.3853 

71.7873 

.9499 

3.  1367 

48 

2.9022 

2. 9467 

71.2357 

.9463 

3.0975 

49 

2.8039 

3.0081 

70.5519 

.9429 

7.9532 

50 

2.6864 

3.0695 

69.6639 

.9377 

7.7317 
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the  index  of  refraction  at  that  point.   The  calculated  data 
for  the  ray  diagram  is  tabulated  in  Tables  E-II  and  E-III. 
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TABLE  E-II 


INITIAL  PARAMETER  VALUES 


RHO<  INITIAL)  =   0.00  degrees 
TANcRHO- INITIAL)  =   0.00 

nl     =       1.00000 

Nnnn    =       2.00000 


Alpha    =       21.00    degrees 
Tan (Alpha)    =       .33 


n3 


1 . ooooo 


n2il) 

= 

^ 

44494 

n2<2) 

= 

£m 

62297 

n2<3) 

3 

2 

—  e  cr  ~.  -* 

n  £  ■:  4  > 

= 

*i 

36301 

n2<5) 

3 

2 

95465 

n  2  (  6 ) 

3 

3 

03445 

n2<7) 

= 

} 

10497 

n2<3) 

3 

3 

16790 

n2>;9) 

3 

3 

22441 

n2<.  10; 

= 

3 

27535 

n2<-.  11) 

= 

i 

32137 

n  2 '  1 2  > 

3 

3 

262^6 

n2<13) 

= 

3 

40051 

r,2<:  14) 

3 

3. 

43436 

n2<'  15) 

3 

3 

46474 

n2C16) 

= 

3 

49139 

n2< 17) 

3 

3 

51596 

n2(  13) 

3 

3 

5  3710 

n2U9) 

3 

3 

55543 

n2'20) 

3 

3. 

57106 

n2':21) 

3 

^ 

5S406 

n2<22) 

= 

3 

59449 

n2< 23) 

= 

3. 

60241 

n2<24) 

3 

3 

60735 

n2<25) 

= 

3 

61033 

n2<26) 

3 

3. 

61138 

n2< 27) 

3 

o 

60949 

n2^23) 

= 

3 

60516 

n2<29) 

3 

J  * 

59336 

n2<30) 

3 

3 

5S907 

n2(31) 

= 

3 

57723 

n2<.  32) 

3 

3. 

562S0 

n2(33) 

3 

3. 

54569 

n2<34) 

= 

3. 

52532 

n2<35> 

3 

3. 

50309 

n2<36) 

3 

■5 

47735 

n2<37) 

3 

■^ 

44345 

n2 C 33 > 

3 

3. 

41619 

n2<39,' 

3 

3 . 

33033 

n2(40) 

3 

3 

34060 

n2<41) 

= 

3. 

29663 

n2( 42) 

3 

3 

24793 

n2( 43) 

= 

3. 

19407 

n2<44) 

3 

3 . 

13415 

r\2<.  45) 

3 

3 , 

06722 

n2<46) 

= 

2. 

99135 

n2<47> 

= 

2. 

90593 

n2<48) 

3 

2  4 

30612 

n2(49) 

3 

<lL   ■ 

68635 

n2C50) 

3 

2 1 

63635 

n2(51  ) 

3 

0. 

0  oooo 

R0_max    =       1.61147       inches 

Aperture    =       1.100  Vi    =      0.000       inch 

Number    of    Rays    =      50 


Yb 


1  .  100       i nch 
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TABLE  E-III 
RAY  DIAGRAM  DATA  CALCULATED  FOR  FIGURE  E-8 


(X0, YO) 


:  1 ,  y  1 ) 


■::<3,y: 


CXc,Yc 


N2 


RHO 


0.00 

.02 

06 

.02 

4.06 

-4.20 

.03 

0.  00 

2.  44 

-46 

51 

0.  00 

.  04 

11 

.  04 

3.96 

-4.  24 

.  15 

0 .  0  0 

2.62 

-43 

10 

0.  00 

.07 

.  17 

.07 

3.91 

-4.26 

.23 

0.  oo 

2.  75 

-49 

14 

0.  03 

.09 

23 

.09 

3.89 

-4.26 

.  30 

0.  oo 

2 .  86 

-49 

91 

o.  00 

.  11 

.  29 

.  11 

3.39 

-4.26 

.  33 

0.  00 

2.95 

-50 

j  i' 

0.  00 

.  13 

34 

.  13 

3.  90 

-4.26 

.45 

0.  00 

3.03 

-51 

9  3 

0.00 

.  15 

40 

.  15 

3.92 

-4.26 

.52 

0.  OO 

3.10 

-51 

45 

0  .  0  0 

.  IS 

46 

.  13 

3.94 

-4.25 

.60 

0.  00 

3.  16 

-51 

31 

0.  90 

.20 

52 

.20 

3.97 

-4.24 

.  67 

0 .  00 

3.21 

_  CJ  -. 

12 

0.00 

.22 

57 

.22 

4.  00 

-4.22 

.74 

0.  00 

3.27 

—  ^  * 

3  9 

0.00 

.24 

S3 

.24 

4.03 

-4.21 

.  32 

0.00 

3.31 

—  ff  5 

63 

0.  00 

.26 

69 

.26 

4.07 

-4.20 

.39 

0.  00 

3.  35 

.c;' 

34 

0.00 

.29 

75 

.  29 

4.  11 

-4.13 

.96 

0.  oo 

3.  39 

-53 

0  2 

0.  00 

.31 

30 

.31 

4.  15 

-4.  16 

1.03 

0.  00 

3.  43 

-53 

18 

0.  00 

.33 

36 

.33 

4.  19 

-4.  15 

1.11 

0.00 

3.46 

-53 

33 

0.  00 

.33 

92 

.35 

4.24 

-4.13 

1.13 

0 .  00 

3.48 

•»  5  3 

45 

0.00 

.37 

97 

.37 

4.29 

-4.11 

1.25 

0.  OO 

3.51 

—  *■  ■"■ 

e  — 

0.00 

.40 

1 

03 

.40 

4.33 

-4.09 

1.32 

0.  00 

~j      cr  ^ 

-5  3 

66 

0.  00 

.42 

1 

09 

.42 

4.33 

-4.08 

1  .40 

0 .  oo 

3.55 

—  5i 

•  j 

0.  00 

.44. 

1 

15 

.  44 

4.  43 

-4.06 

1.47 

0.  00 

3.57 

-33 

32 

0.  00 

.46 

1 

20 

.46 

4.  49 

-  4  .  04 

1.54 

0.  OO 

3.38 

_  ff  ■-. 

33 

0.  00 

.43 

1 

26 

.48 

4.  54 

-4.  02 

1.61 

0.  00 

3.59 

•53 

J  3 

0.00 

.51 

1 

32 

.51 

4.59 

-4.  00 

1.69 

0.  00 

3.60 

-53 

M  — 

0.00 

.53 

1 

33 

.53 

4.65 

-3.97 

1.76 

0.  00 

3.61 

—  *"  0 

99 

0.  00 

.55 

1 

43 

.55 

4.70 

-3.95 

1.33 

0.  00 

3.61 

-54 

01 

0.00 

.  57 

1 

49 

.57 

4.  76 

-3.93 

1.91 

0.  00 

3.61 

-54 

02 

0.00 

.59 

1 

55 

.59 

4.32 

-3.91 

1.93 

0.  00 

3.61 

-54 

02 

0 .  00 

.62 

1 

60 

.62 

4.33 

-  3 .  39 

2.05 

0.  oo 

3.61 

-54 

00 

0.  00 

.64 

1 

66 

.  64 

4.  93 

-3.36 

2.  13 

0.  00 

3.  60 

•53 

98 

0.  00 

.  66 

t 

72 

.66 

5.  00 

-3.34 

2.20 

0.  OO 

3.59 

-33 

95 

0.00 

.63 

1 

73 

.63 

3.06 

-3.32 

2.27 

0.  O0 

3.53 

-53 

90 

0.  00 

.70 

1 

33 

.  70 

3.  12 

-3.79 

2.35 

0.  00 

3.  57 

-53 

35 

0.00 

.73 

1 

39 

.73 

5.  13 

-3.77 

2.42 

0.  00 

3.56 

-53 

73 

0.00 

.75 

1 

95 

.75 

5.25 

-3.74 

2.50 

0.  00 

3.54 

-5  3. 

71 

0.00 

.77 

2 

01 

.77 

5.31 

-3.  72 

2.57 

0.  00 

3.52 

-33. 

PC 

0.00 

.79 

2 

06 

.  79 

5.33 

-3.69 

2.65 

0.  00 

3.30 

-53. 

51 

0.00 

.31 

? 

12 

.31 

5.45 

-3.67 

2.  73 

0.  00 

3.47 

-53. 

39 

0.00 

.34 

2 

13 

.34 

5.52 

-3.64 

2.30 

0.  00 

3.  44 

-5  3. 

~_  i£ 

0.00 

.36 

2 

24 

.36 

5.59 

-3.61 

2.33 

0.00 

3.41 

-53. 

10 

0.00 

.88 

2 

29 

.33 

5.66 

-3.58 

2.96 

0.00 

3 .  37 

-52. 

93 

0.  00 

.90 

2 

33 

.90 

5.74 

-3.55 

3.04 

0.  00 

3.33 

-52. 

73 

0.00 

.92 

2 

41 

.92 

5.  82 

-3.52 

3.  12 

0.  00 

3.29 

-52. 

51 

0.00 

.95 

& 

46 

.93 

5.90 

-3.49 

3.  20 

0.00 

3.24 

-52. 

2  >z- 

0.00 

.97 

2 

52 

.97 

5.99 

-3.46 

3.23 

0  .  00 

3.19 

Ji  i 

■5  t* 

0.00 

.99 

2 

53 

.99 

6.07 

-3.43 

3.36 

0.00 

3.13 

-51  . 

63 

0.00 

1.01 

2 

64  1 

.01 

6.  17 

-3.39 

3.45 

0.00 

3.  06 

-51. 

25 

0.00 

1.03 

2 

69  1 

.03 

6.27 

-3.35 

3.54 

0.  00 

2  99 

-30. 

— 3 

0.00 

1.06 

2 

75  1 

.06 

6.  38 

-3.31 

3.63 

0.  00 

2.90 

-50. 

24 

0.00 

1.03 

Z 

31  1 

.03 

6.5-1 

-3.26 

3.73 

0.  OO 

2.30 

-49. 

■  ■ 

0.00 

1.  10 

2 

37  1 

.  10 

6.  65 

-3.20 

3.33 

0.  OO 

2.  69 

-43. 

66 
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APPENDIX  F 
SECOND  SURFACE  GENERATION:   ITERATIVE  SOLUTION 

A.   INTRODUCTION 

One  of  the  conclusions  reached  as  a  result  of  the  investi- 
gation of  curves  A,  B  and  C  in  Appendix  C  was  that  using  a 
single  polynomial  to  describe  the  second  surface  of  a  conical 
lens  cannot  satisfactorily  refract  light  to  a  single,  distinct 
focal  point.   Hence,  a  satisfactory  image  of  an  object  cannot 
be  formed. 

Three  options  for  further  study  remained.   First,  continue 
to  try  and  find  a  suitable  polynomial  to  describe  the  second 
surface.   This  option  was  not  pursued  because  of  the  infinite 
number  of  trials  which  would  be  required  to  determine  if  such 
an  analytic  expression  existed.   The  second  option  would  be 
to  attempt  to  optimize  a  given  polynomial  by  manipulating  the 
coefficients  of  that  polynomial  to  change  the  refracting  prop- 
erties of  the  polynomial  such  that  a  single,  distinct  focal 
point  could  be  formed.   This  option  was  pursued  by  using 
Control  Program  for  Engineering  Synthesis  (COPES)  developed 
by  Dr.  G.N.  Vanderplaats,  Naval  Postgraduate  School.   The 
study  was  halted  because  of  time  constraints.   However,  ini- 
tial results  concurred  with  the  previously  mentioned  results 
of  Appendix  C . 

The  third  option  was  provided  by  an  inquiry  made  by  Dr. 
E.C.  Crittenden,  Naval  Postgraduate  School,  concerning 
the  capability  of  the  TRACE  program  to  draw  rays  backward; 
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i.e.  could  TRACE  begin  a  set  of  light  rays  at  a  design  focal 
point  and  draw  them  through  the  lens  and  into  the  medium 
ahead  of  the  lens  and  emerging  parallel  to  the  GLM  axis? 
Accomplishing  the  "backwards"  ray  trace  would  design  the 
lens.   Conceptually,  at  least  two  methods  of  generating  the 
second  surface  of  a  conical  lens  exist  and  are  available  for 
investigation.   The  first  method  consisted  of  picking  the 
initial  point  of  the  second  surface  to  be  the  GLM  axis- 
intercept  of  a  refracted  ray  in  the  lens  medium,  noting  that 
the  ray  must  be  refracted  along  the  GLM  axis  to  pass  through 
the  axis.   Therefore,  the  slope  of  the  second  surface  at  the 
first  point  must  be  equal  to  the  slope  of  the  first  surface. 
The  derivation  of  this  relationship  is  performed  in  Appendix 
A.   The  second  point  on  the  surface  is  calculated  by  extending 
a  straight  line  by  using  the  slope  at  the  first  point  to 
intercept  the  next  ray  in  the  lens.   Since  the  second  point 
is  not  on  the  GLM  axis,  the  slope  at  the  second  point  required 
to  satisfy  Snell's  Law  will  not  be  equal  to  the  slope  of  the 
first  surface.   This  process  was  chosen  as  the  preferred 
method  and  is  discussed  in  Chapter  III  and  Appendix  A. 

The  second  method  of  generating  a  second  surface  for  a 
conical  lens  is  similar  to  the  first  method.   The  difference 
is  that  a  parabola  is  used  instead  of  a  straight  line  to 
predict  the  second  and  succeeding  points  on  the  second  sur- 
face.  A  different  parabola  is  used  for  every  pair  of  points. 
A  nonlinear  predictor  is  desired  because  the  shape  of  the 
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second  surface  is  nonlinear.   The  following  discussion 
describes  this  method  of  second  surface  generation  for  a 
conical  lens. 

B.   ITERATIVE  SOLUTION 

0  Ci 

1.   Derivation  of  Expressions  for    I   and    2 

The  iterative  solution  is  motivated  by  the  ability 
of  a  computer  to  perform  a  great  many  calculations  in  a 
small  amount  of  time.   Referring  to  figure  F-l  for  the  geome- 
try and  symbol  definitions,  the  most  significant  steps  in 
the  iterative  solution  are: 

(1)  Initialization: 

(a)  Choose  a  focal  point  on  the  GLM  axis. 

(b)  Choose  an  initial  lens  point  Tl. 

(c)  Choose  an  initial  change  in  pz,      Ap2. 

(2)  Calculate  the  ray  parameters   8-,  P2  and   a 2 
for  the  initial  lens  point  by  applying  Snell's  Law  at  Tl. 

(3)  Calculate  the  second  lens  point  T2  by  fitting  a 
parabola  through  Tl  and  predict  the  coordinate  values  of  T2 . 
Iterate  this  prediction  until  the  error  is  reduced  below  an 
acceptable  tolerance.   The  error  is  defined  to  be  the  distance 
at  which  T2  intercepts  the  GLM  axis. 

(4)  Calculate  the  ray  parameters   9  ,   P2   and   a2 
for  T2. 

(5)  Continue  until  the  lens  has  been  designed  to  the 
GLM  axis. 
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NOTE:   All  coordinate  values  are  referenced  to  a  right  hand 
system.   All  angles  are  referenced  to  the  GLM  axis 
and  are  positive  for  counter-clockwise  rotation  from 
the  axis  to  the  point  in  question.   The  coordinate 
values  (abscissa,  ordinate)  are  referred  to  as  (x,y) 
with  x  =  the  distance  along  the  GLM  axis  and  y  =  the 
radius  from  the  GLM  axis.   The  subscripts  are  either 
single  or  double.   The  single  and  the  first  subscript 
in  the  double  subscripts,  the  number  refers  to  the 
surface  at  which  the  application  of  Snell's  Law 
occurred.   If  the  subscript  is  a  letter  the  subscript 
refers  to  the  operation  of  Snell's  Law;  I  for  angle  of 
incidence  and  R  for  angle  of  refraction.   The  second 
subscript  refers  to  the  point  number  in  the  lens. 
For  example   a 2    is  the  slope  of  the  second  surface 
at  point  number  two.   Any  exceptions  to  this  convention 

I        for  subscripts  will  be  made  clear  within  the  context 
of  the  discussion. 

The  investigation  consisted  of  deriving  the  analytical 
expressions  relating  the  quantities  shown  in  figure  F-2.   The 
primary  variables  of  interest  are  the  angle  of  incidence   9-, 
a 2   the  angle  of  the  tangent  line  at  T  and   p2   the  refracted 
ray  angle  in  medium  3.   The  assumptions  made  in  the  derivation 
are  that  the  following  quantities  are  known: 

(1)  pi;  the  ray  angle  in  the  lens  medium,  measured  with 
respect  to  the  GLM  axis. 
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(2)  p2;  the  ray  angle  in  medium  3  measured  with,  respect 
to  the  GLM  axis. 

(3)  n2;  the  index  of  refraction  of  the  lens  medium. 

(4)  n_;  the  index  of  refraction  of  medium  3. 

(5)  f;  the  design  focal  point  on  the  GLM  axis. 

(6)  (x,y) ;  the  coordinate  values  of  the  Point  T. 

(7)  the  ray  is  transmitted  without  loss  in  all  media. 

(8)  the  ray  is  either  refracted  or  totally  reflected 
at  the  boundary  of  two  media. 

As  discussed  in  Chapter  III  there  exist  two  regions  where 
the  refracted  ray  in  the  lens  can  be  refracted  at  point  T. 
Point  T  is  located  in  the  low  region  as  defined  by  the  area 
below  a  line  QP  shown  in  figure  F-3.   In  the  low  region 
|pi|  is  always  greater  than  or  equal  to   |@|.   Point  T  is 
located  in  the  high  region  when   |pi|   is  less  than   |3| 
as  shown  in  figure  F-4. 

Each  point  on  the  lens'  second  surface  must  satisfy  Snell's 

Law   sin0_,  =  n„/n,  sin6T   or  be  totally  reflected  at  T.   There- 
in     ±.        J       X 

fore  referring  to  figure  F-2  the  angle  of  incidence  in  the  low 
region  is 

9j  -  (  j  -   a2)  -  |pi|  (F-l) 

and  the  ray  angle  in  medium  3  is 

|pi|  =  \   -  (6R  +  as)  (F-2) 
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Substracting  equation  (F-2)  from  (F-l)  and  substituting 
Snell's  Law  for   9    yields 


P2   -   Pi   -  arcsm 


UJl 

sin 

9X 

n.-> 

I 

3 

(F-3) 


Now   a  2 


R 


)    hence 


a2    =   j  -  [I 


P2   +  arcsin 


(nTsin9l)] 


(F-4) 


and 


Equation  (F-3)  is  a  transcendental  equation  in   9_ 
therefore  can  be  solved  graphically  or  by  numerical  methods. 
Therefore,  equations  (F-3)  and  (F-4)  must  both  be  solved  for 


each  iteration  of 


until  a  satisfactory  value  of  a.2      is 


determined.   Experience  from  using  the  CHART  algorithm  shows 

,o 


that  an  initial  guess  of 


I    c 

rithm  to  converge  quickly.   The  critical  angle 


-2    should  allow  the  algo- 

3_   is  the 


angle  of  incidence  at  which  sin9  =1.   Changing  equations 

IS. 

(F-3)  and  (F-4)  into  a  form  suitable  for  a  numerical  algorithm 
yields 

r  n^ 


e 


i, 


P2   -   Pi   +  arcsin 


n+1 


—  sm9T 
■  n-,     I .  J 
u  3       'n 


a2 


2 


n 


/n2 

P2   +  arcsin   —  sm8T 

'  Vn3      I'n+l'J 


(F-5) 


(F-6) 


for  the  angle  of  incidence  and  angle  of  the  tangent  line  at 
Point  T  in  the  low  region. 
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As  shown  in  figure  F-4  the  angle  of  incidence  in  the 
high  region  is 

Qj  =   | P2 |  -  | Pi |  (F-7) 

and  the  ray  angle  in  medium  3  is 

P2  =  j   "  az    +    9r  (F-8) 

Adding  equations  (F-7)  and  (F-8)  and  substituting  Snell's 
Law  for    8    yields 

9I   =   J"  UPil  +  ct2)  +  arcsin  I  ^p-  sine^.)  (F-9) 

now    a 2  =  j  -  | NORM | 


hence 


<*2  ■  j  -    I  Pi  I  +  Bx  (F-10) 


Equation  (F-9)  is  a  transcendental  equation  in   9_   and  must 
be  solved  graphically  or  by  numerical  methods.   Therefore 
equations  (F-9)  and  (F-10)  must  be  solved  for  each  iteration 
of   9_   until  a  satisfactory  value  of  dz      is  determined. 
From  the  geometry  in  figure  F-4  an  initial  guess  for 
9_  =  2  | Pi |  should  cause  fast  convergence  to  the  desired 
value  of   a2.   Changing  equations  (F-9)  and  (F-10)  into  a 
form  suitable  for  numerical  applications  yields 


fn3  \ 


9I,n+1=  j  -( | pi |    a2  n)  +  arcsin  \   ~  sin0I 

1  2       'n 

a2'n+l  =  I     "  lpll  +  9I  (F"12) 

n+±   z  i'n+l 
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for  the  angle  of  incidence  and  angle  of  the  tangent  line  at 
Point  T  in  the  high  region. 

2 .   Predicting  Succeeding  Points  on  the  Second  Surface 
The  iterative  solution  method  must  involve  a  regres- 
sion routine  to  use  a  parabola  to  predict  the  next  point  on 
the  second  surface.   The  regression  routine  solves  a  set  of 
simultaneous  equations  consisting  of  the  equation  of  the 
parabola  and  first  derivative  at  T, (x,,y,)  and  T-Cx-fY^) 


in  the  form 


a  +  bx  +  ex, ' 

1     1 

b  +  2cx, 


a  +  bx_  +  ex  ' 


a  +  2cx, 


"  *1 

=  yV 

=  ^2 

=  y* 


(F-13) 


The  set  of  equations  is  nonlinear  in  x,  but  is  linear  in 

the  coefficients.   Therefore,  the  techniques  of  linear  algebra 

can  be  used  on  equation  (F-13) .   The  method  used  here  is  the 

Gaussian-Jordan  row-reduction  technique  discussed  in  Anton 

[10].   The  first  step  is  to  form  the  augmented  matrix  whose 

determinant  is  set  equal  to  zero 

2 


1 

0 

1 
0 


'1 

1 


xl 

2x. 
2x. 


y' 


y' 


(F-14) 
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The  row-reduction  technique  diagonalizes  the  first  three 
columns  of  determinant  (F-14)  with,  in  general,  non-zero 
quantities  in  the  fourth  column  in  the  form 

1        0        0       A 

0        1        0       B 

0        0        1        C 

0        0        0        A 


=  0 


(F-15) 


Since  four  equations  have  been  used  to  determine  the  three 
coefficients  a,  b  and  c  the  determinant  is  over-specified 
and  nonhomogeneous .   Utilizing  the  fact  that  the  expression 
represented  by  D  at  location  (4,4)  in  (F-15)  is  equal  to  zero 


D  =  x,y. 


i  _ 


XtYi'  +  x9y9'  -  x9y,   -  2y0  +  2y..  =  0 


(F-16) 


'1*2     "m     "2*2     "2*1     "*2  '  ~*1 
if   x2   7*  x,,   which  is  reasonable,  since  the  problem  demands 
that   x2  7*  x,  .   Simplifying  equation  (F-16)  and  solving  for 

y2  -  y1 


X2  '  xl 


AY 
AX 


yields 


Y  -Y 
x2  xl 

X2"X1 


Y   +Y 
2    1 


(F-17) 


Equation  (F-17)  states  that  the  slope  of  the  straight  line 
connecting  Tl  and  T2  in  figure  F-5  is  the  average  of  the 
slope  of  the  parabola  used  to  predict  T2  evaluated  at  Tl  and 
T2 .   This  result  is  very  simple,  yet  provides  a  tool  to  use 
in  predicting  the  value  of  T2 .   Experience  gained  in  using 
CHART  has  shown  that  the  second  surface  of  the  conical  lens 
is  a  smooth  convex  surface  with  no  discontinuities;  compare 
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figures  14  and  20  in  Chapter  III.   The  exact  shape  of  the 
second  surface  is  a  function  of  the  cone  half -angle   a,   and 
the  indices  of  refraction  n-\'n2      and  n3*   The  first  guess 
of  where  T2  is  generated  by  coordinate  values  of  the  inter- 
section of  the  ray  in  the  lens  and  the  ray  in  medium  3  is 
shown  in  figure  F-l.   The  set  of  equations  (F-13)  is  solved 
using  (x^  y1)   and  (x2,y2)   to  find  (AY/ AX)  in  equation 
(F-17) .   Since  the  slope  at  Tl  is  known  the  next  guess  of  the 
actual  location  of  T2  is  aided  by  the  experience  of  using 
CHART.   The  slope  at  T2  will  increase  as  the  first  surface  is 
approached.   Therefore,  calculating  the  slope  of  the  line 
connecting  Tl  and  T2  and  comparing  that  value  with  the  value 
from  equation  (F-17)  will  determine  whether  to  increase  or 
decrease   Ap2   to  predict  the  next  position  of   T2 .   This 
procedure  is  continued  until  the  coordinate  values  of  T2 
are  determined  within  a  specified  tolerance. 

C.   NEWTON'S  METHOD 

The  recommended  numerical  method  used  to  solve  the  trans- 
cendental equations  for   9    and   a  2   in  section  B-l  is 
Newton's  method.   A  detailed  explanation  of  the  technique  is 
not  provided  here.   Scores  of  texts  on  applied  numerical 
methods  exist  and  should  be  consulted  for  further  study. 

Newton's  method  is  simple  and  converges  quickly  if  the 
function  does  not  have  any  of  the  characteristics  illustrated 
in  figure  F-6 .   If  the  function  describing    9_   exhibits  a 
local  minimum  in  the  range  of  interest,  Newton's  method  will 
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diverge  as  illustrated  in  figure  F-6a.   If  the  function 

exhibits  an  inflection  point,  Newton's  method  will  diverge 

as  shown  in  figure  F-6b.   If  the  function  has  multiple  roots 

in  the  range  of  interest,  Newton's  Method  cannot  determine. 

which  value  is  correct.   The  special  case  of  a  multiple  root 

is  shown  in  figure  F-6c.   Newton's  method  will  approach  the 

roots  from  one  side  then  overshoot  and  oscillate  back  and 

forth,  never  converging  on  the  desired  value.   A  function 

which  is  "well  behaved"  is  shown  in  figure  F-7;  compare  the 

characteristics  of  the  curve  in  figure  F-7  and  those  of  figure 

F-6. 

The  application  of  Newton's  method  as  shown  in  figure  F-7 

involves  the  selection  of  a  value  of   0,   as  the  first  guess 

0T  ,   finding  the  functional  value   f(9T  )   and  the  slope 

11  xl 

f'(9   ).   The  prediction  of  the  correct  value  of   9T    is  via 

the  relation 

f(6T  ) 
9_   =   9_   -       1  (F-18) 

2        1        ' 

4  L  f  (eT  ) 

xi 

The  process  is  repeated  until  the  difference  between  two 

succeeding  values  of   9_,   I ®t  ~ ®i      "*"s  ^ess  tnan  an 

n   n-1 
acceptable  tolerance.   Transforming  equation  (F-18)  into 

general  form  yields 

9                  f(9I  } 
Jn+1  =   9I   "   —  (F-19). 


n 


f'(9   ) 
n 
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APPENDIX  G 
LIMIT  PROGRAM  DESCRIPTION  AND  LISTING 

The  derivation  of  the  relationship  between  the  slopes 

encountered  of  the  first  and  second  surfaces  of  a  GLM  lens 

composed  of  homogenous  material  by  the  ray  shown  in  figure 

G-l  is  the  subject  of  this  appendix.   The  derivation  is 

applicable  to  the  case  in  which  total  reflection  occurs  at 

the  second  surface. 

The  incident  ray  in  medium  1  forms  an  angle   9    with 

Xl 
the  first  surface  normal   n,   at  point  Tl  and  is  refracted 

according  to  Snell's  Law   sin9_   =  (n,/n0sin9T  .   The  first 

Rl     1      l  II 

surface  normal  n,   is  defined  as  the  normal  to  the  tangent 

line  at  Tl.   The  angle  which  the  tangent  line  makes  with 
respect  to  the  GLM  axis  is   012.   The  ray  traverses  the  lens 
and  intercepts  the  second  surface  at  T2 .   The  ray  is  refrac- 
ted at  T2  according  to  Snell's  Law   sin9   =  (n2/nO sin9.j.  . 
For  total  reflection  at  T2 

sin9R2  "  X  "  Vnf/  sin9I2  (G"1) 


Now 


the  angular  difference  between  n\  and  rL   is  (a  -  a2) 


and  therefore   9_   =   9D   +  (a-a2)   Hence 

X2  Rl 


&) 


9Rn  +  (a  -a2)  =  arcsinl— /  (G-2) 

1  \n2 

The  angle  with  respect  to  the  GLM  axis  of  the  tangent  line  at 

T2,   012,   is  then  defined  by 
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qlz   =   arcsin 


(hj  sin\)+a- 


arcsin I 


n. 


n. 


Noting   that         9        =      y  -   a 


then 


a2      =   arcsin 


"ni  •  (*     Yl         •  f*3 

—  sin  I  7T  -  al       -  arcsin  I  — 
n2  \  2  /J  \  n~> 


arcsin  I  — -/  +  a 
n2/ 


Equation  (G-4)  is  illustrated  in  figure  G-2 . 


(G-3) 


G-4) 
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LIMIT  PROGRAM  LISTING 


10  PR  I  NT  "*#*#**#*#**#*#******#*#****»#*****#*#***#***#***###*****************" 

20  PRINT  "*  *" 

30  PRINT  "*  LIMIT                                  *" 

40  PRINT  "*  *" 

50  PRINT  "■***************************************+*********■*******************" 

60  DISP  "THIS  IS  LIMIT" 

70  WAIT  2500 

80  OPTION  BASE  0 

90  INTEGER  I , Li  necount , L i nemax 

100  DEC 

110  FIXED  2 

120  PRINTER  IS  IS 

130  Linecount=0 

140  Linemax=48 

150  N 1 = 1 

160  N3=l 

170  INPUT  "DO  YOU  WANT  A  HARD  COPV^  Y-'N",Y* 

180  IF  Y**"Y"  THEN  PRINTER  IS  0 

190  GOSUB  Header 

200  CALL  Graph 

210  FOR  N2*l.S  TO  4.5  STEP  .5 

220  Alpha=5 

230  Thetai_l=90-Alpha 

240  Sin_thetarl=Nl/N2*SIN<Thetai_l> 

250  Thetar_l=ASN<Sin_thetarl) 

260  A1pha2=Alpha+ASN<Nl/N2*SIN<:90-Alpha))-ASN<N3/N2) 

270  Thetai_2=Thet ar_l+Al pha-Al pha2 

280  IF  LTnecount >Li nemax  THEN  GOSUB  Header 

290  PRINT  USING  4 10;  N2, Thet ai _1 , Thet ar_l , Thet ai _2, Al pha, A 1 pha2 

300  Li necount=Li necount +1 

310  MOVE  Alpha, Alpha2 

320  FOR  Alpha=5  TO  35  STEP  5 

330  Thetai_l=90-Alpha 

340  Sin_thetarl=Nl/N2*SIN<Thetai_l> 

350  Thetar    l=ASN<Si n_thetar 1 ) 

360  A1pha2=Alpha+ASN(Nl/N2*SIN<Thetai_l))-ASN(N3^N2) 

370  Thetai_2=Thetar_l+Al pha-Al pha2 

380  IF  Linecount >Li nemax  THEN  GOSUB  Header 

390  PRINT  USING  410;  N2 , Thet ai _1 , Thet ar_l , Thet ai_2, AI pha, AI pha2 

400  Li necount =Li necount +1 

410  IMAGE  5X,DD.DD,5<5X,DDDD.DDD) 

420  DRAW  Alpha, Alpha2 

430  NEXT  Alpha 

440  LOIR  0 

450  LORG  2 

460  CSIZE  2.5 

478  LABEL  USING  480;N2 

480  IMAGE  K 

490  IF  Linecount >Li nemax  THEN  GOSUB  Header 

500  PRINT 

510  Linecount*Li necount+1 

520  NEXT  N2 

530  GOSUB  Header_end 

540  PRINTER  IS  16 

550  PRINT  LIN<2>, "PRESS  CONT" 

560  BEEP 

570  WAIT  250 

580  BEEP 

590  PAUSE 

600  EXIT  GRAPHICS 

610  GOTO  Finished 

620  Header:    IF  Li necount >Li nemax  THEN  GOSUB  Header_end 

630  IF  Linecount >Linemax  THEN  PRINT  PAGE; TAB< 23 >;" TABLE  I  <C0NT > " ; L IN< 

2) 

640  IF  Linecount<=Linemax  THEN  PRINT  PAGE; TAB< 35) ; "TABLE  I  ";LIN(2> 

650  '      Linecount=0 

669  PRINT  LIN<2) 
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GOSUB    Char 
PRINT    LINU>;SPA<3>;  "       n2 
A1pha2";LIN<l> 
GOSUB    Char 
PRINT    LINC2) 
RETURN 
FOR    1=0    TO    79 

IF  1=79  THEN  PRINT  CHR*<223> 
IF  1=79  THEN  ?&% 
PRINT  CHR$<228>; 
NEXT  I 

PRINT  LIN<2) 
GOSUB  Char 
RETURN 
:  PRINTER  IS  0 

PRINT  CHR*<27)8."«,100T" 
DUMP  GRAPHICS 
PRINT  CHR$<27)«,"8,136T" 
PRINTER  IS  16 
RETURN 


670 
680 

Hi  pha 
690 
700 
710 

720  Char: 
730 
740 
750 
760 

770      RETURN 
780  Header_end 
790 
800 

810  Dump  it 
820 
330 
840 
830 
860 

870  Finished:  Dump  crt*="N" 
880  INPUT  "DO  YOU  WANT 

890  IF  <Dump_crt$="Y' 

900  DISP  "FINISHED" 

910  END 

920  SUB  Graph 
930    OPTION  BASE  0 
940    DEG 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


Theta'Kl) 


ThetaRC 1) 


Thetal<2> 


A  HARD  COPY  OF  THE  PLOT  ?  Y'N" , Dump_crt * 
)  OR  <Dump_crt*="y"  >  THEN  GOSUB  Di.4mp_i  t 


THE  EXPRESSIONS  USED  TO  DERIVE  THE  TIC  MARKS  WERE  OBTAINED  FROM  THE 
HP-9845B  UTILITIES  LIBRARY,  TAPE  NR  09845-19205,  PROGRAM  "REGPLT" 


GCLEAR 

PLOTTER  IS  13, "GRAPHICS" 

LDIR  0 

LORG  5 

LIMIT  0, 184,0, 100 


DATA  -2,-1, 1,2 
READ  Um,Dm,Md,Mu 
DATA  .39794, .69897, . 
READ  Log2, Log5, Log7 


37306 


DEFAULT  =  90  DEGREES)  ?' 
<  DEFAULT  =  30  DEGREES) 


Xorg=Xmi  n=Yorg=Ymi  n=0 

Xmax=90 

Ymax=80 
1150  Alpha:  INPUT  "WHAT  IS  THE  MAXIMUM  VALUE  OF  ALPHA  < 
,  X»ax 

1160  Alpha2:  INPUT  "WHAT  IS  THE  MAXIMUM  VALUE  OF  ALPHA2 
?",Ymax 

1170     IF  Xmax<=Xr»in  THEN  BEEP 

1180     IF  Xmax<=Xmin  THEN  DISP  "ALPHA  MUST  BE  >  0.  PLEASE  RE-ENTER  ALPHA." 
1190     IF  Xmax<=Xmin  THEN  WAIT  2500 
1200     IF  Xmax<=Xmin  THEN  Alpha 
1210     IF  Ymax<=Ymin  THEN  BEEP 

1220     IF  Ymax<=Ymin  THEN  DISP  "ALPHA2  MUST  BE  >  0.  PLEASE  RE-ENTER  ALPHA2. 
1230     IF  Ymax<=Ymin  THEN  WAIT  2500 
1240     IF  Xraax<=Xmin  THEN  Alpha2 
1250  GRAPHICS 
1260   ! 
1270 
1280 
1290 
1300 


LIMIT  0, 134,0, 140 
LOCATE  20,132,28, 100 
Lx=LGT<Xi»ax-XmirO 
Ly«LGT<Ymax-Ymin> 
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1318   Xfudge«.02*<Xmax-Xmin> 

1320   Yfudge».02*<Ymax-Ymin) 

1330  Ticmarks:  Test xt i c=FRACT< Lx > +< Lx< 0) 

1340  Testyt  i  c=FRACT<Ly:>  +  <Lyv  0> 

1350  Xtic«l0*<INT<Lx>-l>*<l  +  1.5*<<T»stxtic>Locj2>  AND  (Testxt i c<Log5> >  + 

4* < (Testxt ic>=Log5)  AND  < Test xt  i c < =Log7> > +©. 3*< Test xt i c ; Log7) ) 

1360  Yt  ic  =  10~< INT<Ly>-l >*< 1  +  1 . 5*< < Test yt i c >Log2>  AND  CTestyt  ic<Log5>>* 

4»<<Testytic  >=Log5)  AMD  <Testyt  i  c<=Log7)  >+6.5*<Testyti<:>Lag7>> 

1378  Scale:  SCALE  Xmi n, Xmax+. 23*ABS<Xt i c > , Ym i n, Ymax+. 25*ABS< Yt i c  ) 

1380  CLIP  Xmin.Xmax,  Ymin,  Yniax 

1390         LINE  TYPE  3 

1400        Xmaj=Ymaj=l 

1410         Minticsize=4 

1420         GRID  Xt l c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i csi ze 

1430         LINE  TYPE  1 

1440         FRAME 

1458  Labelx:  LOIR  98 

1468  LORG  8 

1478  FOR  A»Xorg  TO  Xmax  STEP  ABSCXtic) 

1488  MOVE  A.Yorg-Yfudge 

1498  LABEL  USING  1570;A 

1508  NEXT  A 

1510  Labely:  LOIR  8 

1528  LORG  8 

1530  FOR  A=Yorg  TO  Ymax  STEP  ABS(Ytic) 

1540  MOVE  Xorg-Xfudge,A 

1550  LABEL  USING  1570;A 

1568  NEXT  A 

1570  IMAGE  #,K 

1580   LABEL  USING  1590;"" 

1590   IMAGE  '.K 

1600  Label  :  SETGU 

1610       "   LOIR  0 

1620  '        LORG  5 

1630  Centerx=72 

1640         Centery=64 

1630  CSIZE  3 

1660  MOVE  Center*.,  10 

1670  LABEL  "Alpha  :  Angle  of  the  Tangent  Line  at  the  First  Surface  (  deg 

rees  >" 

1680  LOIR  90 

1690  MOVE  1.45,Centery 

1700  LABEL  "Alpha2  :  Angle  of  the  Tangent  Line" 

1710  MOVE  6.45,Centery 

1720  LABEL  "at  the  Second  Surface  (  degrees  )" 

1730  LOIR  0 

1740  CSIZE  15^4.54 

1750  SETUU 

1760       SUBEXIT 
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